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TABLE OF CONTENTS 


TAR 
PASS OO Tine 
CONFIGURATION REQUIREMENTS 
DEVICE/OPTION SETUP 
MODULE OPERATION 
OPERATION OPTIONS 


The exerciser will be similer to that of other disk subsys- 


tem exercisers. 


Writes will be performed to the disks fol- 


lowed by read and compare of the data A yt The centrelier 


will o ell error retrying. Errors will be 
console terminel. 


All desired disk drives on 
ly If 


simultaneous 


date written vil go only as fer as 


memory . 


If the results 


reported on the 


the controller will be exercised 
is not required, then 
controller‘s RAM 


disk accessi 


of the exerciser requires more information, 


other PDP-11 diagnostic progrems are available. hips ere: 


2.0 REQUIREMENTS 


———Ee EE 


SEQ 0002 
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3.0 


Harowere for all ceases: , 
One DEC/X1L module configures for one UDASO-A or KDASO-@ 
controller. 


Herdware for disk epesee tne: 
One controller with at least one drive is the minimum 


amount or one controller with four drives is the maximum 
amount. 


Herdwere for no disk accessing: 
One controller is the only requirement. 


Memory: DUBE requires 
Decimal words -- 4096 MAX 


START -UP 


On the initial stert, the progrem will clear biti of ‘SR1' 
and type the following messages. 


DUBEO PA: 0060162 APC: 000674 PASS #00000 


‘IF YOU WISH TO DESTROY CUSTOMER DATA, SET BIT1 (NOT BITO) 
IN SWITCH REGISTER 1(SR1) OF DUBE? EQUAL TO 1.’ 


DUBEO PA:0060210 APC: 000722 PASS #00000 
'! OPERATING WITH NO DISK ACCESSING !' 


This will occur requerdless of the condition of SR1i (biti) 
at configure time. 


If the operator wishes to exercise the drive. SRL (bitl) 
must be modified at location 16 of CXDUBEO module (see sec- 
tion 9). This can be aseesns ieee by using the ‘MOD’ com- 
mand supplied by the DECX11 run time system. Unless the 
program is reloaded or the operator modifies the location 
again, the contents of SR1 will remain the same on all sub- 
sequent starts. 


On ell subsequent starts, the condition of SR1 (bitl) will 
type to terminal in the following manor. 


If biti of SR1 is equel to O (zero), the following warning 
will be typed. 


OUBEO PA:0060210 APC: 000722 PASS #00000 
'! OPERATING WITH NO OISK ACCESSING !° 


If bitl of SR1 is equal to 1 (one), the following warning 
will be typed. 


SEQ 0005 
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4.0 


5.0 


6.0 


7.0 


8.0 


DUBEO PA:0060210 APC: 000722 PASS #00000 
*? CUSTOMER DATA WILL BE DESTROYED !' 


«<<< NOTE »>>>> 
When this DEC/X11 module runs in diskless mode, its 
deta rate exceeds all other devices. This may cause 
erroneous date lates from other devices. 


PASS DEFINITION 

= pess of the DUBE module consists of 512 iterations of 
baeic test sequence (write, read, date-check). The 

Pte t sequence writes ea user defined number of words (de- 

fault is 256) words, reads 256 words, and data-compare 

same. 


EXECUTION TIME 

The default execution time of one pass of DUBE running 
alone on a PDP-11744 Bg nl = disk accessing mode 
will be aoprentaasely S° Soe Under random accessing 
mode, the time La A seconds. ~ ey no disk accessing. 
time is five seconds 


CONFIGURATION REQUIREMENTS 

Default Peremeters: 

DEVADR: 172150, VECTOR: 154, BRi: 4, DEVCNT: 1. SR1: 
0, SRe: 0 


REQUIRED PARAMETERS: 


Additional controller module(s) configured aust have different 
bus eddress(es) and vector(s). 


DEVICE/OPTION SETUP 
For disk mode, make certain that ell units ere 


powered 
write enabled, connected *5 6 controller vie the SOI end Paty. 


For diskless mode, make certain the controller is powered up. 


MODULE OPERATION 


SEQ 0004 


——— a Se 


08 ee eo oe ee ow 
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ACHITONMMIO® FY 


NMOOeyY 


TEST SEQUENCE DISK MODE: 


Setup device register addresses and module variables. 
Set controller cheracteristics. 

Reset all units on-line and drop all that ere not. 
Get e unit eddress. 

Get a disk address and a fresh block of date. 

Do ea write -- if errors, report. 

@ read -- if errors, report. 

Do a date-check -- if errors, report and continue. 
Make unit aveileble. 

Wait for aveileble attention message. 


If end of gees report and to 0. 

If end of esting unit, go % C; elee go to D. 
Blocks determined defective won't be replaced by the ex- 
erciser. 


& 


TEST SEQUENCE DISKLESS MODE: 


Get e fresh block of date. 
write to controller RAM butter -- if errors, report. 
contrelier RAM buffer -- if errors,report. 
if errors, 


e 

e read from 
e date-check -- 
ne pess,. report 


report and continue. 








module regres 
used to define or spec fy 
eg he Ee Se oes 
Suitch Register 1 hes 
i & i ‘ 
SR1 Bit 1 set C12: CUSTOMER DATA MILL BE DESTROYED! 
reset (0): No disk transfers. 
SR1i Bit 2 set (1): Do not repert errors es they 
reset (C0): Report errors es they occur. 
SRI Bit 3 set (1): Do not print grrer summery at 
erd of pass. 
reset (0): Print error summery et end of 
pess. 
SR1i Bit 9 set (1): Run Duel port mode (only valid if SRi 





SEQ 0005 


eel 
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it 1 ie eet) 
reset (0): Bs net run buel port mode 


SR1 Bit 10 set (1) Select r block eddressing.Conl 
oo oe 
rese : 
*sddressing. 


SRi Bit 11 eet (1); Bypese dete compere. 
reset (0): 


Switch register 2 hes the following cherecteristics. 








SR2 Bite O to 5: Buret rete. 
A burst rete qpeed HP trqnetere the controller 
cen be used. oa oe ie 6 bite 2. and set up in 
SR2 et configure tine. 
the number of unite cee for 
te iret un t : 
mmber rero 
tested on the systes. 












4 
“m 


or 
“ 


z 
§ 
g 
: 


Ht 





eee eee 
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DUBEO PA: 00060470 ACP: 001210 PASS #00000 


Se ERROR COU COUNT. @e¢ HARD ERROR COUNT #00000 


10.0 PRINTOUTS 


A. Mest Foy gp ee heave the etanderd formate described in 
the DEC/X11 document. 


8. nen-otengere intoute include error messages which 
dump the Se: 


| & re 






a iets: ies si 
oe sae gt ER oe LS 
2a oh eeu SSieSASRRr "SSS BAPE see 


pepe esse crores 
“contpined in tng Test tive.bive oF the 









STATUS - 






@ List 





ret 
GEESweusumo § 
| 


——_ = << eee 


SEQ 0007 


. EE oe LA LLL LLL - - ~ 


ee ee 


C—O 


o—es-cee  e eee ee e 





cL A, LLL LAA, 


SEG 0006 
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ENOCOD - Soenatd wes sent te the. WOK. | his what 
command sent to we ue wh is e list of 
ell Soselble *Sndeodes th module uses. 








100 - AVAILABLE ATTENTION MESSAGE (not e commend « 
to the host from the ) 

200 - 

203 - 

tt: - CHARACTERISTICS 

2ii - 

230 - 

231i - 





% 


ee This is not “er eam 18'S oo non dy Aye 8 Nlcce 


BYTECO - pe eS 

HI LBN - —— legicel Bleck number Supper 16 pits? which telis 
on hg ing. Thi 

Te Sie Silo ter oles ante — = 

LO LON - asin Nacsa sah sacle eabiein Sh wien? 

EXTADR - extended address of the read/write buffer. 

PHYADR - physical eddress of the read/write buffer. 





c. on controller f te pees ite interne] diagnostic. one 
of Se Se a ll be printed. - 


a cee found e fault: 

SM I Ag 

ga © axxaxx IN yyyyy 

ADDR © z2zEzzz 

If e oteg Dit mse get ent ab expncted Soring he initializetion 
Seka tT Eas ‘eftponar set" °° 

SA * xxxxxx IN STEP yyyyy 

ADOR = zzzzzz 


If deta peesed beck from the controller wes not equal to the 
expected velue: 








DUBEO PA: 00062252 APC: 002764 PASS: 00000 





ee ee 





SANREGISTER 


Where XXXxXXX 





i 
a3 


INIT ERROR 
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EXPECTED DATA WAS INCORRECT 
= xxxxxx IN STEP yyyyy 


can heave any of the following velues end meanings: 
Fetel r error 








test error 
control reg test error/ 



















U prec 
U 

perity error 
Seep 1 deter error (RS6 not set) 


f 
+. 
32 
i 





Ba 
; 


Where yyyyy is the step in which the error was found. 
Where zzzzzz is the eddress of the UDA. 


If the sexiaeue 


ot retries hes been exceeded, the 


number 
followning message will be printed. 
DUBEO PA: 00061414 APC;:002126 PASS #00000 
RETRY COUNT EXCEEDED. ABORT 


controller did not successfully complete the 
dropped. 


This means the : 
initielizetion in four passes. The module is then 


dD. 
the 


If the controller did not successfully clear the ring buffer in 
host llow 


eres, the fo ing meesage will be printed. 
DUBEO PA: 00061414 APC:002126 PASS #00000 
RING AREA NOT CLEARED 


—_— —-— = — - 


SEQ 0009 


= 


— OUBE 
_ USER 


| 
| 
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Thie ie e fetel error. 


It means that the controller did not access 


host memory that the troller would use to communicete with 
host. The module is t dropped. 
E. If the SA register displeys @ non-zero velue efter the 
initielizetion sequence is done, the followng message will 
be printed. 

DUBEO PA: APC: 004764 PASS: 00000 

SA REGISTER IS NOT ZERO, © xxxxxx 

CONTROLLER IS GOING THROUGH INITIALIZATION 


Where xxxxxx can have the following velues and meanings. 


ie . _. dropped by 
following messages will be printed. 


If the drive hed 
efter en iteretion. 


004409 - 


100027 
If ea 


333% 










ae> 


2 


if 


drive 





i 


5 
5 
: 






: 





en error it could not 
the following meesege will be printed: 


controller hes been inited by either e bus init or by 
writing into the IP iste 
bus lope/peck 





reg r. 

et read error (perity or timeout) 
et write error (perity or timeout) 
and RAM perity error 











bus 

Host access t 

Host exceeded c im 
Q@-bus mester error 

Di ic controller fetel er 


ror 
) mee of instruction 1 


identifier 
invalid ion identifier 
to Sone tauienbe canarelier 
non-per ity) 
ncompetibility error 
eilure 

reed error (perity or timeout) 
unsupported 


3 
$3 
i 


the exerciser, one of the 


hendle properly 


DUBEO PA: 00063012 APC: 003524 PASS #00000 


DRIVE 00000 DROPPED. 
DEVICE ID BIT = 000001 
ERRORS CAUSED DRIVE TO BE DROPPED 


If the drive wes 


not found by the exerciser, the 


SEQ 0010 


LO —_-— 


——< — 
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following messege will be printed: 
DUBEO PA: 00063012 APC: 003524 PASS #00000 






DRIVE 00000 
DEVICE ID BIT = 000001 
UNIT WAS NOT FOUND BY THE EXERCISER 


If there were more device count bits set then the actuel 
ay = vad drives found, the following sessege will be 
prin : 


DUBEO PA: 00063012 APC: 003524 PASS #00000 

DRIVE 00000 

DEVICE ID BIT = 000001 

DVIOi BIT SET HIGHER THAN ACTUAL @ OF DRIVES FOUND 
Solution: try e lesser number of units in DVID1 Cloc 14) 


11.0 OUAL PORT OPERATION 


To run @ duel port operation, set bit9 of SR1. The 
para} Hx 9 will check the unit to see if it is offline or 
evei e. 


The controller will retain control of ea unit until the MSCP 
Aveileble commend is entered i the host. Ouring this time, 
the other quntrelier is not ellowed eccess oe unit th 


the between 3. 

troller senses when the unit becomes avai lable end takes 
it. The MSCP *MSCP Avei Leable commend is only executed if SR1 bit 

9 and ma bit 1 ere set. This ellows ual porting end disk 
ecceesing respectively. 


DEC/X11 will only duel port a drive with another DEC/Xi1 
exerciser. 


12.0 GLOSSARY 





DUBE follows the ay Te neme formet described in the 
DEC/X11 Programmer's Guide 


DU-- Identifies the hardwere end thus the nodule. 

--B- Distiquishes between two or more different 
aodules fer the seme cone gener te device. The 
sequence A, 6, C. ETC. t be used for 

each additional Rl Pg 


---E Specifies the module revision. 


Soe ee —_—_ —— 


SEQ 0011 


; 
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IOMOOX is e@ type of module in ean extended input/ 


modules ere interrupt driven end ere caneble 


input/output operation. Some added added capabilities provid- 


= tal lude: 


Use of monitor pong toed write buffers, 
AD lity ne grange ize of the write 


Access to the © asniter's check date utility. 
Conversion routines to get 16 and 22 bit addresses 
from 16 bit eddresses. 





13.0 BIBLIOGRAPHY 


CXQUADO 'DEC/X11 USER'S MANUAL’ Sept 1964 

CXQUBGO ‘DEC/X11 CROSS-REFERENCE MANUAL’ Sept 1962 
CXQUCAO ‘DEC/X11 REFERENCE CARD’ Jenuary 1979 
CXQAFDO ‘DEC/X11 PROGRAMMERS'S GUIDE’ Sept 1976 


€ 
-OSABL LC 


SEQ 0012 


——_— 


€ DEC/X11 SYSTEM EXERCISER M 


ce 


0Us 
DEC/X11 SYSTEM EXERSIZER MACRO 


i 
7 
3 


000000 
000000 
000000 
000000 
000003 
000006 
000012 
000013 
000014 
000020 
000022 
0000 

0000 

000032 
000034 
000036 
000042 
000046 
000050 
000052 
000054 
000060 
000062 
000064 
0000 70 
000072 
000074 
000076 
000100 
000102 
000102 
000104 
000104 
000106 
000110 
000112 
000114 
000116 


ES 
S3eesse 


ie 


Hib ob 


125 
040 


———— «oe ee _— 


SEQ 0015 
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102 


.SBTTL MODULE 
IOMODX 


MODULE 
. TITLE 
DDOXCOM VE 
LIST 61 


| CARORSESSESEESSESSESEEESESSEEESS 


50000 i721 4 
E DEC/X11 SYSTEM EXERCISER MODULE 
RSION 6.4  28-JAN-82 


HEADER SLOCK 
<DUBE »>,172150,154 4.0.0. 1000, 108 ROU 26 oS 


000, 104 ,RBUF ,256. ,256. 
AN- 


SHEKEEESEASEERESESEESEAEESESSESSEESEESESESE 


BEGIN 
MOONAM: .ASCII /DUBE / ;MODULE NAME. 


XFLAG: 


a: 


j SAASASAEAERESSEKESEAERSESERESS 


BYTE OPEN 
172150+0 
: 1540 


. BYT 
.BYTE 


O+l 


START 


OPEN 


;USED TO KEEP TRACK OF WBUFF USAGE 
:1ST DEVICE ADDR. 

31ST DEVICE VECTOR. 

;1ST BR LEVEL. 


:2ND L ‘ 

eS INDICATOR 1. 

;SWITCH REGISTER 2 
TER 3 


;SWITCH REGIS 
s;SWITCH REGISTER 4 


SEREEERSEEEESEEESSSEEESESESESESESSESESESEDESE 


;MODULE START ADDR. 

s;MODULE STACK POINTER. 

;PASS COUNTER. 

;@ OF ITERATIONS PER PASS=1000 

;LOC TO COUNT ITERATIONS 

;LOC TO SAVE TOTAL SOFT ERRORS 

TOTAL HARD ERRORS 
;LO0C TO SAVE SOFT ERRORS PER PASS 
VE HARD ERRORS 

3@ OF SYS ERRORS ACCUMULATED 

RANDOM @ WHEN RAND MACRO IS CALLED 


: DATA, OR 

;STATUS REG CONTENTS. 

; TYPE OF ERROR 

;EXPECTED DATA. 

;ACTUAL DATA. 

s;RESTART ADDRESS AFTER END OF PASS 
;WORDS TO MEMORY PER ITERATION 
;wORDS FROM MEMORY PER ITERATION 


— 


LL LLL LL ——— 





SEQ 0014 
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MODULE MEADE ocK 
000120 900000 INTR: OPEN :@ OF INTERRUPTS PER ITERATION 
000122 000104 IONUM: 104 ;MODULE IDENTIFICATION NUMBER=104 
000124 007616’ RBUFVA: 2BUF ;READ BUFFER VIRTUAL ADDRESS 
0001 000000 RBUFPA: OPEN ;READ BUFFER PHYSICAL ADDRESS 
0001 000000 RBUFEA: OPEN ;READ BUFFER 
000132 000400 RBUFSZ: 256 ;SIZE T 
000134 000000 WBUFPA: OPEN ;WRITE BUFFER PHYSICAL ADORESS 
000136 000000 EA: OPEN ;WRITE BUFFER EA 
00C140 000400 WBUFRQ: 256. ;WRITE 
000142 000000 WBUFSZ: OPEN 
000144 000000 COERCT: OPEN :;CDATA/DATCK ERROR 
000146 000000 COWOCT: OPEN ; CDATA/DATCK OUNT 
000150 000000 FREE: OPEN ;RESERVED FOR FUTURE USE 
000040 se eat SPSIZ ;MODULE STACK STARTS HERE. 
-WORDB O 
.LIST 
. ENDR 
000252 


; RARERSESSARERESESESESEESESSERESESEESSESESERESESESSSSSESSESSSSESESSSESOSE 


4 Sade RREAAEEERAEREREOEESESERESESESESESSESESSSSSSSESESESESSSESESSSSS SESS 
5 .SBTTL MODULE STORAGE AREA 
6 : VERSION 1.0 FOR RELEASE 
7 : VERSION 1.1 DON'T TEST STEP 4 COMPLETION. 
: ; Oren WAIT FOR INTERRUPT AFTER SENDING MSCP AVAILABLE 
© OMMAND . 
10 ; VERSION 2.0 USE BIT 9 IN SR1 FOR DUAL PORTING. (DON’T SEND MSCP 
11 : AVAILABLE C IF WE WANT JUST SEQUENTIAL OR RANDOM 
12 ; SS -- IN OTHER WORDS, ONLY SEND ONL 
13 ; COMMAND ING PASS UNLESS DUAL PORT MODE). 
14 : VERSION 3.0 KDASO-@ SUPPORT . 
15 : VERSION 4.0 JFM - 27-SEP-85 
16 ; 22 -BIT Q@-BUS ADDRESSING SUPPORT ADDED. 
17 ; COMMENTS CLEANED UP AND UNUSED CODE DELETED. 
18 ; DOCUMENTATION HAS BEEN UPDATED SOMEWHAT. 
20 000002 SR.XFR = BITO1 ;NO DISK TRANSFER O = NO DISK TRANSFER, 1 = DO DISK TRANSFER 
21 000004 SR_.REP = BI1T02 ;REPORT ERROR AS THEY OCCUR O = REPORT, 1 = DON'T REPORT 
22 000010 SR.SUM = BITO3 ;REPORT ERRORS ON END OF PASS O = REPORT, 1 = DON'T REPORT 
23 001000 SR.DUA = BITO9 ;DUAL PORT O = NO DUAL T. 1 = DUAL PORT 
ea 00 SR.SEQ = BIT1O ;DISK ACCESS MODE O = SEQUENTIAL, 1 = RANDOM 
¢° 004000 SR.CMP = BIT11 ;NO DATA COMPARE © = DO DATA COMPARE. 1 = DON'T DO DATA COMPARE 
er 000252 000000 SAREG: .WORD 0 ; CONTROLLER STATUS REG 
5+¢ 
$3 ; THE ORDER OF THE NEXT 5S VARIABLES MUST NOT CHANGE 
5 
31 000254 000000 CINTR: .WORD 0 ;COMMANOD INTERRUPT INDICATOR 
32 000256 000000 RINTR: .WORD 0 sRESPONCE INTERRUPT INDICATOR 
33 000260 RSPONC: .BLKW 2. sMESSAGE RING 
3s 000264 COMMND: .BLKW 2. ;COMMAND RING 
39 000270 000000 CMDREF: .WORD 0 ;COMMAND REFERENCE NUMBER 


_—_— 
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MOOUL 
39 


wesessnsanates 
8 
3 


SUSSSASSSsarsasaweHSSSUSSLAKeSsersu 


PRTNUM = 15. 
PRNMSG: .WORD 


TIMER = 1200. 
EXPAV: .WORD 
ADR1: .BLKB 

BYTE 
ADR: .BLKB 

BYTE 
ADRS .BLKB 

.BYTE 
ADR4 BLKB 
ADRS .BLKB 


coo cooo ooo°o°o ooooyoo ocoooneo oooo 


PRTNUM 


177777 


AOVononoda 


; RESPONSE RING 


; PHYSICAL 
: ADDRESS 
; STORAGE 


s;RESPONCE PACKET LENGTH 
sRESPONCE PACKET VIRTUAL CIRCUIT 
sRESPONCE PACKET 

; RESPOINSE PACKET 

; PHYSICAL 

; ADDRESS 

: STORAGE 

;COMMAND PACKET LENGTH 

s;COMMAND PACKET VIRTUAL CIRCUIT 
;COMMAND PACKET 

; COMMAND PACKET 

; PHYSICAL 

; ADDRESS 

: STORAGE 


;READ BUFFER PHYSICAL ADDRESS SAVE AREA 
;READ BUFFER EXTENDED ADDRESS SAVE AREA 
;WRITE BUFFER PHYSICAL ADDRESS SAVE AREA 
;WRITE BUFFER EXTENDED ADDRESS SAVE AREA 


;ADDRESS USED IN OT 


;PRINT MESSAGE EVERY 15TH TIME 

;PRINT WORD SAVES THE VALUE TO CHECK FOR THE 
; NEXT TIME AN END OF PASS MESSAGE IS WRITTEN 
;TIME TO WAIT 2-3 SECONDS AFTER DAP COMMAND 


;EXPECTING AN AVAILABLE ATTENTION MESSAGE = 0 
; ELSE = 177777 


SEQ 0015 


aE nnn ee 


SEQ 0016 
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| 44 pane hy 000 .BYTE O 
95 Le ADR6: .BLKB 6 
: 96 00057 000 .BYTE O 
97 000600 ADR7: -BLKB 6 
96 000606 000 .BYTE O 
99 000607 ADRS: .BLKB oOo 
100 000615 000 .BYTE O 
101 .EVEN 


ow 


—_ - 


= 


SEQ 0017 
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193 .SBTTL MORE MODULE STORAGE 

105 000616 900000 SECL: -WORD 0 ;CURRENT SECTOR LO ORDER ADDRESS 

et 000620 000000 SECH: .WORD 0 ;CURRENT SECTOR HI ORDER ADDRESS 

106 000622 900000 UNSZL: .WORD 0 ;UNIT SIZE LO ORDER LIMIT FROM ONLINe CHND 
cf 000624 000000 UNSZH: .WORD 0 ;UNIT SIZE HI ORDER LIMIT 

+38 000626 003500 LIMIT: .WORD 3500 ;4K - 1200 = MOST WORDS MAITW CAN TAKE 
113 000630 000001 DVICE: .WORD 1 ;DEVICE TO TEST 

114 000632 000000 UNITNO: .WORD 0 ; 

115 000634 TRY: .WORD 0 ;NUMBER OF TRIES 

116 000636 000001 PORTIO: .WORD 1 :BI1T POSITION SELECTS THE PORT 

117 000640 000000 UNITFL: .WORD 0 ;SAVE UNIT FLAGS 

133 000642 000000 WORK ‘ 0 ; TEMPORARY WORK AREA 

120 005670 TIMOUT = 3000. ; TIME OUT GUADGE 

= C00004 RLIM = 4 sRETRY LIMIT 

123 000644 000000 000001 TABLEW: .WORD 0,1 s; TABLE ENTRY UNITNO,PORTIO 

124 000650 177777 177777 -WORDB -1,-1 i LAST TABLE ENTRY 

125 000654 -BLKW 12. ;sREST OF TABLE 

126 000704 177777 177777 TEND : -WORD -i.-1 ;END MARKER 


~ 
fo 
~e 


LLL LL 


= i ,,,  —————————————————————_—— == -_- is 
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MODULE PRIVATE DATA 





| 129 SBTTL MODULE PRIVATE DATA 

| 131 000001 ° 

: 132 000002 “ 

133 000004 . 

134 000010 . 
135 000020 . | 
136 000040 ° | 
137 000100 « | 
138 000200 ° | 
139 000400 . | 
140 001000 & 
141 002000 ° | 
142 004000 . 
143 010000 . 
144 020000 . 
145 040000 : 
146 100000 . ' 
147 
148 
149 
150 
151 000000 . 
152 000001 ° 
153 000003 ° 
154 000006 ° 
155 000032 32 = 32 


— — — 
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2 ees eee —————————— seas _~ —- . 


_ CONTROLLER BIT DEF 





004000 
010000 
020000 


€40000 
100000 


003777 


000017 
000360 


000377 


.SBTTL CONTROLLER BIT DEFINITIONS 
; SA REGISTER UNIVERSAL READ BITS 


ce 
SA: “ERR 100000 
: SA REGISTER ERROR STATUS BITS 


SA.ERC* 003777 
: SA REGISTER STEP ONE READ BITS 





; SA REGISTER STEP ONE WRITE BITS 


a: Be 
; SA REGISTER STEP TWO READ BITS 
Sh: tne- g00n00 


; SA REGISTER STEP TWO WRITE BITS 





SA.PRG= 000001 

; SA REGISTER STEP THREE READ BITS 
.RSE@ 7 

Sh:Gne= sooseo 

; SA REGISTER STEP THREE WRITE BITS 


SA.LFC* 040000 

; SA REGISTER STEP FOUR READ BITS 
SA.MCV= 000577 

; SA REGISTER STEP FOUR WRITE BITS 


SEQ 0019 





s$T TATUS 
ist 2 bine fh 
i 4 STATUS 81 


Gauge ie 





BIT FOR KDASO-@ 


veers ot DIVIDED BY 4) Det im IZATION 


VERAGLE UNIBUS ADAPTER PURGE INTERRUPT 

















HIGH MESSAGE RING BYTE ADORESS 
SLAST F URE CODE REQUEST 


; CONTROLLER MICROCODE VERSION 


we ee ee ee eel 


DUBE DEC/X11 SYSTEM E 
CONTROLLER BIT DEFINI 


213 


000001 


SA.GO= 
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BITO 


;G0 BIT TO START CONTROLLER FIRMWARE 


SEQ 0020 


nm lima 


——— <n 
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DOMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS yore , - 








| 215 _SBTTL COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 

| 217 100000 RG. OWN= BIT15 | ;SET WHEN CONTROLLER OWNS RING 

| 218 040000 RG.FLG* BIT14 ;FLAG BIT 

220 OFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING : 

| 222 000010 HC.SIZ* 8. SIZE OF HOST 

| 323 000060 Mists. a8. SIZE OF P | 
225 000000 a i 
226 000002 “RCT= ; 
227 000004 “CMD= ; 
228 000006 -CCT= , 

000306 ' -RPK= , 

230 000366 ' "CPKe HC. RPK +PKTSIZ , 





~~ NE NTT a 5 
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COMMAND PACKET OPCODES ae ee _ 


~w wer ee ee 


251 


SURI RR EER 


.SBTTL COMMAND PACKET OPCODES 


ABO= 
ACC= 
AVL«= 





ek td tte tt ets 








+682 


VSVVSVSSSSSSTSVESEST TOTS 





tf 


; JUST 


01 
20 
10 
21 


13 


THE END 


SEQ@ 0022 





= 
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COMMAND MODIFIERS 


| 





276 


BURI PBB eSe Seas eR esse saa 


040000 
100000 
010000 
004000 


.SBTTL COMMAND MODIFIERS 








040000 
100000 
010000 


sageeeecgeys 


000001 


.S8TTL END PACKET FLAGS 


EF BBU= 990 50100 
EF .LOG 900040 


mF = 
EF .SEX= 000020 


.SBTTL UNIT FLAGS 





UF .CMR= 


000001 
000002 
010000 
040000 


s 
2 


s 


eegde3 


000200 
004000 
002000 
000040 
010000 


SSSSSSSS 
a 


— 
o 





(SOFTWARE OR VOLUME) 


;WRITE 
7576 BYTE SECTORS 


SEQ 0025 





SEQ 0024 
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| 
| CONTROLLER 

























300 .SBTTL CONTROLLER FLAGS 
208 000200 CF .AVL= 000200 ;ENABLE AVAILABLE ATTENTION MESSAGES 
30 000100 CF .MSC= 000100 SCELLANEOUS ERROR LOG MESSAGES 
304 000040 CF .OTH= 000040 OTHER HOST'S ERROR LOG MESSAGES 
305 000020 CF .THS= 000020 LOG MESSAGES 
208 000002 CF .SHD= 000002 1 SHADOWING 
9 44 000001 CF .576= 000001 1576 BYTE SECTORS 
#4 .SBTTL COMMAND PACKET OFFSETS 
31 5 GENERIC COMMAND PACKET OFFSETS: 
3 000000 _CRF= OQ. ;COMMAND REFERENCE NUMBER 
st 000004 P.UNIT= 4. sUNIT NUMBER 
14 000010 P.OPCD= 6. ‘ 
315 Ovool2 P.MOD= 10. sMOOIFIERS 
316 000014 P.BCNT= 12. sBYTE COUNT 
317 000020 P.BUFF= 16. sBUFFER TOR 
316 c00020 P.ADPA= 16. ;BUFFER’S PHYSICAL ADDRESS (P.BUFF) 
319 000022 P.ADEA= 18. ;BUFFER’S EXTENDED ADDRESS (P.BUFF +2) 
000034 P.LEN= 28. sLOGICAL BLOCK NUMBER 
i 000040 P.SFTW= 32. sSOFTWARE WORDS 
5 ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
000014 .OTRF= 12 ;OUTSTANDING REFERENCE NUMBER 
5 ONLINE AND SET UNIT CHARACTERISTICS COMMAND PACKET OFFSETS: 
7 000016 -UNFL= 14. T 
000020 P.HSTI= 16. 
000024 P.UNTI= 20. 
3 000034 P.ELGF= 28. 
1 000040 P.SHUN= Se. 
000042 P.CPSP= 34. 
34 5 REPLACE COMMAND PACKET at EF 
} 000014 -RBN= i2 ;REPL BLOCK NUMBER 
7 5 SET CONTROLLER CHARACTERISTICS COMMAND PACKET OFFSETS: 
000014 -VRSN= 12. sMSCP VERSION 
9 000016 P.CNTF= 14. : 
000020 P.HTMO= 16. sHOST TIMEOUT . 
i 000022 P.USEF= 16. s;USE FRACTION 
000024 P.TIME= 20. ;QUAD-WORD TIME AND DATE 
5 MAINTENANCE READ AND MAINTENANCE WRITE COMMAND PACKET OFFSETS: 
s 000034 -RGID= 26 ; 
P .RGOF = sREGION OFFSET 
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PND PACKET OFFSETS 


SSSsesaaesessseseasekesscseusannsees 


Oo 


i GEN8 GE GE GO 


~ 
j- 


-SBTTL END PACKET OFFSETS 
GENERIC END PACKET OFFSETS: 























b. o. 
p: a. 
P'OPCD= 8. 
P'FLGS= 9. 
p. 10: 
Pp: 12: 
p. 28. 
P. 32. 
p. 12. 
P. 16. 
b.MLUN= 12. 
P'UNFL®= 14. 
P'HSTI= 16. 
P"UNTI= 20. 
P’SHUN= 32. 
P'SHST= 34. 
P'TRCK= 36. 
P'GRP= 38. 
P'CYL= 40. 
P'ACTS= 44. 
P'RENS= 46. 
P'RCTC= 47. 
6 .MLUN© 12. 
P'UNFL® 14. 
P'HSTIe 16. 
P-UNTI= 20: 
p:Sime $2. 
OVSER- 40. 
p. 12. 
O tnire 14. 
o  aart 20. 
P'MEDI= 26. 
P.SHST= 34. 
ERROR LOG 
a eS 
alle 
P'OPCD- 8. 
P'FLGS* 9. 


GET COMMAND STATUS END PACKET OFFSETS: 


GET UNIT STATUS END PACKET OFFSETS: 
MULTI 


ONLINE AND SET UNIT CHARACTERIS 







.s OUTSTANDING NUMBER 


sCOMMAND STPTUS 








s CODE 
' 
;UMIT 


sR TI- 
sUNIT 


ATTENTION MESSAGE PACKET OFFSETS 


;COMMAND REFERENCE NUMBER 
;UMIT NUMBER 
s 


: 
8 LOG FLAGS 


SEQ 0025 


ee eae ee _—- = 
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END PACKET OFFSETS 
403 000012 P.SZOF= 10. :SIZE_OR OFFSET 
404 000014 P:LGDT= 12. | :START OF ERROR LOG DATA 


——-- - 


: 
8 
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.SBTTL ERROR LOG FLAGS 
EF .FRS= 000200 
EF .LST= 000100 
EF .MIS= 000001 


sERROR LOG MESSAGE OFFSETS 


36. 
-DATA= 40. 
;STATUS AND EVENT COE DEFINITIONS 


ib 
SUMP ONDUS WFO 


S 
< 
a 
re ree 


SUBCODES FOR ST.OFL 


-NVL = 40 


-I10P = 100 
.DIS = 400 


.DUP = 200 


SUBCODES FOR ST.ORV 


.STO = 40 


SEQ 0027 


1F INST PACKET 
;LAST PACKET 
;MESSAGE MISSING 


ek CODE 


CONTROLLER HARDWARE REVISION 
UNIT IDENTIFIER 
ys SOFTWARE REVISION 

ARE RE 


; UNIT VISION 
‘ERROR LOCATION 
;CYLINDER 


OR 
;VOLUME SERIAL NUMBER 
;EVENT DEPENDENT DATA 


;STATUS / EVENT CODE MASK 
;SUB-CODE MULTIPLIER 


; COMPARE 

;DATA ERROR 

;HOST BUFFER ACCESS ERROR 
;CONTROLLER ERROR 


;DRIVE ERROR 
;MESSAGE FROM AN INTERNAL DIAGNOSTIC 


;NO VOLUME MOUNTED 
; OR DRIVE DISAVLED VIA RUN/STOP SWITCH 
SUNIT INOPERATIVE 
;UNIT DISABLED BY FIELO SERVICE 
; OR INTERNAL DIAGNOSTIC 
;DUPLICATE UNIT NUMBER 


;SDI RESPONCE TIME OUT 


—_——————— —< 


| 


DUBE DEC/X 
ERROR LOG 


461 
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000100 


SC.INV = 100 


————— - ——wemme a —_— 


;INVALID SOI RESPONCE 


SEQ 0028 


ee ee 


ea 


— a eee 


SEQ 0029 
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MOOULE CODE 


463 .SBTTL MODULE CODE 
464 | CROSS SASRESSESEESESESESESSESEESESEESSSSEEESSSSESSSESESESEESSSS SOOO SONS 
465 3 ; 
4&6 ; INIT VALUES ; 
467 ; INIT CONTROLLER ; 
688 ; XFER TO DISK? ; 
469 ; F FOR J = 1,CYCLE LIMIT ; 
470 ; MAITENANCE WRITE ; 
471 ; MAITENANCE ; 
47 ; CHECK DATA? ; 
47 : T CHECK ; 
474 3 NEXT J : 
475 , T FOR J = 1,CYCLE LIMIT ; 
476 ; GET UNIT STA ; 
477 ; IF DRIVE IS NOT AVAILABLE, WAIT UNTIL IT IS ; 
rt 4 : DRIVE THERE? 
i ; 
480 : ALL DRIVES DROPPED? ; 
461 ; T DROP MODULE ; 
; sialon ; 
48 : T ONLINE ; 
484 : ONL INE ? ; 
ABS ; T PICK BLOCK - IF RANDOM, GET RAND @ MOD X ; 
486 ; ELSE INCREMENT ; 
487 j IF LBN > LIMIT THEN LBN <- ; 
468 ; WRITE ; 
489 $ READ ; 
490 ; CHECK DATA ? ; 
491 ; HECK ; 
492 ; AVAILABLE DRIVE(I) ; 
493 ; F TRY TO BRING ONLINE AGAIN : 
rho : NEXT J FY 
a ; 
438  ReRAAESSESEEEAEEESSEAEESESEEEESSESEEEAESSSSSSSESESESESESSSSSESESESSSOSS 
4 
498 
439 | RhOSSEASAAEEESESESEEREASERESSSSEAEEESESESSSESEESEAESESSESSSSSSSESESESES 
500 i ; 
501 ; START CODE : 
‘ ; 
305 : IF THE CODE IS RESTARTED, CLEAR THE OLD ADDRESSES SO THE : 
504 ; THE CONTROLLER WILL GET REINITED. , 
505 a + 
ace FY RAREAASEEEERASSSSAEERSSESEERSSESEAEERESESESESESESSESSSSSESSSESSSSESS SDSS 
308 000710 START: 
509 000710 005227 177777 INC @-1 ;FIRST TIME THRU HERE? 
510 000714 001006 BNE is :6R IF 
S11 000716 042767 000002 177072 BIC @SR.XFR,SR1 :00 NOT ALLOW DISK TRANSFERS 
Si 900788 104403 000000’ 006042’ MSGN$ ,. BEGIN, WARNL ;ASCII MESSAGE CALL WITH COMMON HEADER 
513 0007 032767 000002 177056 1%: BIT @SR.XFR,SR1 ;WILL CUSTOMER DATA BE OVERWRITTEN? 
514 000740 001404 BEQ 2$ if BR IF NO 
SiS 000742 104403 000000' 006046' HSGNS . BEGIN, WARN2 ;ASCII MESSAGE CALL WITH COMMON HEADER 
316 000750 000403 = BR 3$ : 


— 
— — ee 


104403 


000000 ' 


177160 


177777 
000017 
477088 
1776 
00000 


1 
177244 
0000G0' 


177020 
7 


177556 
176740 
000002 


177434 
177432 


177560 


177202 
177174 


38: 





MSGN$ , BEGIN, WARNS 

CLR CDERCT 

MOV 0177777. EXPAV 

MOV @PR . 

MOV DVID1,0VICE 

OL TABLEM+2 
+ 

CLR CMOREF 

RAND$ ,BEGIN 

MOV RANNUM, SECL 

CLR SECH 

MOV ADDR, SAREG 

ADD ¥ 

CLR OLDPA 

CLR OLDER 
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ee 


SEQ 0030 


;ASCII MESSAGE CALL WITH COMMON HEADER 


INITIALIZE PRINT 
;DVICE HAS DESIRED BITS SET 
:;SET TABLE FOR UNIT 


;SET TABLE FOR PORTID FOR UNIT O 
COMMAND REF @ = 0 


FOR nest aes CINITIAL SECTOR ADDR) 


STORE IN SA 

SA REGISTER HAS PROPER ADDRESS 
OLO PHYSICAL ADDRESS 
OLD EXTENDED ADDRESS CLEARED 

FOR RESTARTING. THIS WILL FORCE A 
CONTROLLER REINIT TO TAKE PLACE 





—_—_—_——— - 


_— 


$37 
38 


573 

574 001244 
575 001250 
S76 001256 


105067 
104403 
012777 


005067 
032767 
001446 


000740 
177200 


177172 


177160 
177154 
000260 


177476 
000010 
177350 
000017 


177416 
177410 


177376 
177372 


176652 
176660 
177336 


000042’ 


000144' 


006004 
176544 


176540 


{ OOSSEEEEEEEEESEESSESEESES 


EE LS 
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MODULE CODE 


RESTART SEQUENCE 


CHECK THE ADDRESS OF THE RINGS TO SEE IF THEY WERE RELOCATED 
IF THEY WERE, REINIT THE CONTROLLER. 


IF THE DISKLESS OPERATION IS DESIRED 
ELSE 00 


GET THE NEW ADDRESSES. 
THE WRITE 


THEN DO THE MAITENENCE WRITE AND READ. 
AND READ WITH A DRIVE. 


aw PC, CVTADR 

CMP RSPPP , OLDPA 
BNE RESTR2 
CMP RSPEP, OLDEA 
BEQ RESTRi 

RESTR2: MOV RSPPP , OLOP 
MOV RSPEP , OLDEA 
JSR PC, INIT 
CLR TRY 

RESTR1: 
BIT @SR.SUM,SR1 
BNE 1% 
CMP PRNMSG , PASCNT 
BNE i$ 
ADD 


1%: 


; RARRSSSEAEREAESESEDSSEOSESESSSSSOSSSESESSSSSSSSSESESSESESSSSS 
;CONVERT SOFCNT TO ASCII AND 
sSTORE AT ADR2 
BT0D$ , BEGIN. SOFCNT , ADR2 
$b4006006060000000060006066S6SSSSSSSS8SSSSSESEESSSSSSESSESSS 
> 
 SESSSESSSESSRSAEESESERESESSSSSESSSSSSSESSSSSESSSSSESESESESESS 
ASCII AND 


; CONVER To 
:STORE AT ADRS 
BTOD$ ,BEGIN. HRDCNT , ADRS 


bbSOEESSESEEESERESEOEEEEESESSSESESESSSSESESSSEHSSSSSSSSESSSEE 
* 
5 ShRSRESSESSEESEEEEESEESE46SSSESSEESESESSDSSSSESESESESSESSSSESE 
: CDERCT TO ASCII AND 
;STORE AT ADR1i 


SREREAEEEAEEREEEEEEEEEEEOEEEEEEEEEEEESESESESESS 


SEQ 0031 





BTOD$ ,BEGIN, CDOERCT .AOR1 

axa Ra amram nea ane 
ELRB ADR + 
MSGN$ , BEGIN, ERRPAS ;ASCII MESSAGE CALL WITH COMMON HEADER 
MOV @NTRUPT . @VECTOR iGET VECTOR ADDRESS 

3SET POINTER 

CLR UNITNO ;PRESET UNIT @ 
BIT @SR.XFR,SR1 ;DISK XFER??? 
BEQ MALONC ‘NO! OO MAINTENENCE (DISKLESS) ROUTINES 





eee oe 


ee me ee | 


i SEQ 0032 
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MODULE CODE 








$77 | AARERRAAADEEEEEESEEREESESEREEEESSSEDEDSESESEESSSESEESSESSSESSESSESOSEDDS 
578 ; DO THE DISK OPERATIONS ; 
579 : CHECK TO SEE WHICH PORTS ARE AVAILABLE 
381 | RARER RAEAREEERESESEARERSDESAEREEESSEESEEEESSEESSSSESSESESSSESSESSSSOO SS 
S82 001260 004767 001524 JSR PC, SETUP |FIND DRIVES/SET UP TABLE 
Sas 001264 005767 177340 TST OVICE ;ELSE, TEST FOR ANY MORE DRIVES 
Sg4 001270 0010 2 BNE LOOP1 sIF TRUE, 00 A CYCLE 
336 6 001272 104410 000000’ END$ ,BEGIN , 
588 001276 004767 000420 LOOP1: JSR PC ,GETWB ; ALLOCATE WRITE BUFFER 
S89 001302 012704 000644' MOV @TABLEW,R4 (R4 -> TABLE OF UNITNO AND PORTID 
$90 001306 012703 000001 MOV 01,R3 ;R3 IS AN INDEX TO OVICE 
$91 001312 LOOP2: 
S92 001312 030367 177312 BIT R3,OVICE ;HAS THE ORIVE BEEN DROPPED 
593 001316 001412 BEQ 9% :IF $O, SKIP THIS ORIVE 
$94 001320 016467 000002 177310 MOV 2(R4),PORTID ;SET UP PORTID 
595 001326 C11467 177300 MOV (R4),UNITNO ;SET UP UNITNO 
596 ; see DO A DISK CYCLE 
597 001332 004767 001756 JSR PC, CYCLED ;00 A CYCLE FOR DISK OPERATION 
$98 001336 103002 Bcc CESSFUL, CONTINUE 
599 001340 004767 002534 JSR PC ,DROP1 
600 001344 9%: 
601 001344 062704 000004 ADD 04,R4 
602 001350 006303 ASL R3 
603 001352 022704 000704’ CMP @TEND .R4 
604 001356 001403 BEQ 12% 
605 001360 020367 177244 CMP R3,OVICE 
606 001364 003752 BLE LooP2 
607 001366 128: 
608 001366 104413 000000’ ENDIT$ .BEGIN 
609 001372 000741 BR LOOP 
ei 
612 3 bdbbRO46OOO00000600602066060060080FF6SSEES46SSSSSSESESESESEESESSESSSESSS 
613 ; MAINTENENCE ROUTINE. DO THE D CODE ; 
ss 3 £6060646660666060668065000066600660600SSSSSSrSSSSSSSSSSSESSSSSSESSSESSSSS 
61 
616 001374 004767 000322 MALONC: JSR PC .GETWB ; GET WRITE BUFFER 
617 001400 004767 002206 JSR PC. CYCLEL 
618 001404 104413 000000' ENDIT$ ,BEGIN :SIGNAL END OF ITERATION. 
SMONITOR SHALL TEST END OF PASS 


619 001410 000771 BR MALONC 


ee ee ALLA 


oe a 
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MOOULE CODE 








Ne neinain 





SEQ 00355 





E 
i 
| es  RASRASEEEEEEEEEDEEEESEEEEEEEEEEEEEEEEEEEEESESSESSSSESSSSEESESES ESOS EL ODD 
62 3 5 
| 623 ; INITIALIZE THE CONTROLLER | ; 
: ; 
| 625 ; DO THE 4 STEPS FOR INITIALIZING THE CONTROLLER. : 
‘ ; 
627 ; STEP 1 - CHECK FOR ERROR, STEP 1 ; 
628 ; SEND VECTOR/4, INTERRUPT ENABLE, RING LEN’S = 0 ; 
629 ; 1 
630 ; STEP 2 - CHECK VECTOR ECHO, INTERRUPT ECHO, ; 
631 ; RROR, STEP ; 
632 ; SEND PHYSICAL ADDRESS & PURGE = 0 : 
ry Py 
634 ; STEP 3 - CHECK RING LEN = 0, ERROR, STEP 3 ; 
635 ; SEND EXTENDED ADDRESS BITS ; 
o ; 
637 : STEP 4 - CHECK STEP 4 ; 
638 ; SEND LFAIL = 0 . GO AND BURST ; 
e ; 
ose  RERRSREREREAERESEREAAEEEEEESESESEESSEEESSSSSSSSSSSESESSSSS OSES ESOS S&F 
001412 INITUD: CLR IS DETECTED 
643 001414 012702 000001 MOV = STEP INDICATOR REG FOR MSG’S 
001 005077 176362 CLR TER TO INIT CONTROLLER 
645 001 012701 002260 MOV T 
001430 017700 176616 1s: MOV G.RO 
647 001434 032700 100000 BIT @<SA.ERR>,RO 
001440 001007 BNE ab GET OUT OF LOOP 
649 001442 104407 000000° BREAK$ , BEGIN ; TEMPORARY RETURN . 
001 104407 000000’ BREAKS, ;THEN CONTINUE AT NEXT INSTRUCTION. 
650 001452 005301 DEC IME OUT? 
651 001454 001365 BNE 
652 001456 BR 
653 O01 012703 004000 2s: MOV 
654 001 000167 001150 JMP 
65S 001470 042700 173377 4s: BIC *SA.DIA>,RO 
56 001474 022700 004400 CMP SA.DIA>,.RO 
657 001500 001 BEQ 
658 001502 000167 001126 JMP ERROR 
659 i STEP 2 
660 001506 016705 176276 $: MOV “ECTOR RS ;VECTOR GIVEN 
661 001512 ASR a :SET TO APPROPRIATE VALUE 
662 001514 ASR RS ; = VECTOR/ 
663 001516 052705 100200 BIS @<SA.INT+BIT15>.R5 sACTIVATE INTERRUPTS & SET MSB FOR STEP 1 
3 t 
665 001522 01 MOV R5,RO ;STORE RS IN RO FOR SUBROUTINE 
666 001524 012703 MOV @5A.51.R3 3R3 HAS STEP BIT FOR SUBROUTINE 
667 001530 004767 0v1002 JSR PC, SNOSTP ;SEND STEP DA 
00 042705 100000 BIC IT15,R5 ;CLEAR MSB FOR COMPARE DATA 
001 042700 000200 BIC @B1T07.RO ;WAS BITO7 ONLY BIT SET?. SHOULD BE 
670 001544 001404 BEQ & 
671 001546 052700 010200 BIs @<SA.S2+BITO7>,RO ;SET RO TO REPORT THE ERROR 
672 001552 000167 001056 JMP ERRORS ;REPORT ERROR 
673 001556 016700 176514 6$: MOV RSPPP RO ;RO GETS PHYSICAL ADORESS 
674 001562 004767 000750 JSR PC, SNDSTP ;SEND STEP DATA 


OS ee oe —_- 


694 
695 001652 
696 656 


696 
699 001672 
700 
701 001706 
702 001714 


703 
704 001720 
05 


—— —— hee 


042705 
020500 


001402 
000167 


016767 
016767 


016767 


012767 


177400 
001032 


176472 
000724 


176714 


176400 
176374 


176124 
176112 
176534 


176432 


BIC €177400,R5 
CMP R5,RO 
BEQ 
- JMP ERRORS 
‘ STEP 3 
MOV RSPEP ,RO 
JSR PC, SNDSTP 
MOV @RSPONC -4 , RO 
3 STEP 4 
8s: TST CRO)+ 
BEQ 
JMP ERRORS 
9%: CMP OCMOREF ,RO 
BNE 84 
MOV SR2,RO 
CLC 
ASL. RO 
ers aoa GO,RO 
MOV RO, @SAREG 
MOV CPAKPP , COMMND 
MOV CPAKEP , COMMND + 2 
MOV RPAKPP , RSPONC 
MOV RPAKEP |RSPONC+2 
MOV @NTRUPT , @VECTOR 
CLR TRY 
RTS PC 
¢ 
: GETWB - GET WRITE BUFFER 
éeTwe: 
GWBUF$, BEGIN 
2,RES2 
BEQ 
11%: 
12$: 
20%: 
3+ 
i 
EVTADR: MOV @RSPONC, VA 
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wee eee eee ee ll -_ 


;HIGH BYTE CLEARED 

i CK ECHO DATA 

;IF OK, SKIP 

SIF NOT, REPORT ERROR 


; SEND THE EXTENDED ADORESS BITS 
; SEND STEP DATA 
; RO -> RING ENVELOP 


;IS THE RING ENTRY = 07 


F NOT, ERROR 
;I1S RO POINT PAST THE RINGS? 


Y 
; ALIGN BURST FOR STEP 4 


: 

;SET GO BET 

;SEND DATA TO CONTROLLER/INIT DONE 
;STORE ADDRESS IN THE RING 

;MOVE ADJUSTED EA INTO RING 


sSTORE ADDRESS IN THE a. 
T ADDRESS IN VECTOR 


T INTERRUP 
;CLEAR TRY SO DRIVE WILL 
;GO BACK ONLINE IF NECESSARY 


:;GET WRITE BUFFER INFORMATION 


; IF NOT 





USING Q@-22 MONITOR. 
ING 


PHYSICAL 


SET UP FOR 


GET 22-BIT ADOR FROM 18-BIT ADDR 
PHYSICAL ADDRESS 


RETURN FROM SUBROUTINE 


CVTADR - CONVERT 16 BIT ADDRESS TO 18 OR 22 BIT ADDRESS 


; CONVERT RESPONCE RING ADDRESS 


SEQ 0054 


——— oe 





6 
016767 
016767 


016767 
15 


104416 
016767 


6 
016767 
016767 


012767 
104415 


176424 
176414 
000010 
001000 


176366 
176362 


000404 
176154 


000 
176110 


000000 
176104 
176100 


000306' 
000000’ 


000472' 
176220 


176210 
175770 
175756 
176166 


000474' 


176134 
176150 


176314 
* 000472' 


000474' 
176224 
176220 


176176 
0004 


72‘ 


118: 


12%: 


20%: 


218: 


31%: 


40%: 
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aad se VA 


MOV 
MOV 
BIT 
BEQ 
BIT 
BNE 
MOV 
MOV 
JSR 
MOV 
BR 
MAP22$, 
MOV 
MOV 
MOV 
MOV 





MOV 

BR 
MAP22$, 
MOV 
MOV 


RSPEA 
@QMON22 , RES2 
@ADDR22 , CONFIG 


BEGIN,PA 
PA22,.RSPPP 
EA22.RSPEP 





BEGIN APA 
EA22.CPAKEP 
ACK, VA 


MOV @RSP 
GETPA$ BEGIN, VA 


ee ———<< ss —— — > = 


SEQ 00355 


;GET PHYSICAL ADORESS FROM 16-BIT VA 
sae B EA A Stis 







UDO 
TO 18 BIT 
PHYSICAL ADDRESS 


peeuaan 
a 
a 


; GET 22-BIT ADOR FROM 18-BIT ADOR 
PHYSICAL ADDRESS 






; CONVERT READ BUFFER ADDRESS 
;GET a FROM 16-BIT VA 


; GET 22-BIT ADDR FROM 18-BIT ADDR 
PHYSICAL ADDRESS 





; CONVERT COMMAND PACKET ADDRESS 
;GET PHYSICAL ADDRESS FROM 16-BIT VA 
SAVE EA BITS 
SAVE PA BITS 
IF NOT USING Q@-22 MONITOR. 
8 ADDRESSING 


; GET 22-BIT ADOR FROM 18-BIT ADOR 
PHYSICAL ADDRESS 


; CONVERT RESPONSE PACKET ADDRESS 
;GET PHYSICAL ADDRESS FROM 16-8IT VA 
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eae ee ee 





016767 
016767 
032767 
001 
032767 
00 
016767 


6 
016767 
016767 


000207 


016701 
012721 


116711 
010077 


104400 


175710 


000474' 


175656 
175652 


SEQ 0056 


MOV EA,RPAKEA 
MOV PA,RPAKPA 





v 
; SAVE PA BITS 
BIT @QHON22 , RES2 ; IF NOT USING Q-22 
BEG 41% ; USE i 
BIT @ADDR22 . CONFIG ; IF 22-81 
BNE 42% ; CALCULA 
ais: MOV PA, RPAKPP : 
MOV A.RO ; PSE 
JSR PC ASRO4 ; TO 16 BIT 
MOV RO. RPAKEP ; PHYSICAL ADDRESS 
ane BR 50% 3 
MAP22%, BEGIN,PA ; GET 22-BIT ADDR FROM 18-BIT ADDR 
MOV PA22,RPAKPP ; PHYSICAL ADORESS 
EA22.RPAKEP : 
50%: RTS PC ; RETURN FROM SUBROUTINE 
sRRRSSESESREEEESSSEESEEEEEESEEESSSSESESESSSESSSSSESESESSESSSOSSSSESOSODSS 


ASRO4 
ARITHMETIC SHIFT RIGHT REG O FOUR TIMES 


EXTENDED ADORESS BITS (16 & 17) ARE SET IN BIT POSITION 4 € s 
RESPECTIVELY. SHIFT RIGHT FOUR TIMES TO REPOSTION THE VALUE 


INPUT RO = UNADJUSTED EXTENDED ADDRESS BITS 
OUTPUT RO = ADJUSTED EXTENDED ADDRESS BITS 


SAREERESEAERESEESESSEEEDSSESESEESSSEESESESSSSSESESESESSESESESSESESSESSSSS 


PSR RO ;SHIFT 10 
ASR RO ; SHIFT 4 
oR RO ; SHIFT 2 
ASR RO ; SHIFT 
RTS PC ;RETURN 


s OSOSSEEEEESESSESESESESSEASEESSSESESSSSESESSODSSESESESESSSSSSSSOSSSOSSSSS 
SEND STEP DATA 


INPUT: RO HAS DATA TO BE SENT TO CONTROLLER FOR STEP 
R3 HAS PREVIOUS STEP FLAG SET 


OUTPUT: RO HAS DATA SENT FROM CONTROLLER TO HOST FOR ECHO AND NEAT STEP 
R3 HAS CURRENT STEP FLAG SET 


SAbSSEERESEEESEEESSRESESSSESESESSESSESSSEESSESESSSESSSESSESSSSSSSESOSSS 






STP: MOV TOR RL , 
MOV @INTA,(R1)> ;SET UP INTERRUPT HANDLER ADORESS 
MOVE @BR1,(R1) ;SET PRIORTITY LEVEL 
MOV RO, @SAREG ;SEND STEP1 WRITE FORMMATED DATA 
EXIT$ ,BEGIN ;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 


lacie 


——— Oe —_—-= 
—_— — a 





PIRQ$ BEGIN, 3$ 

3 

MOV BSAREG ,RO 
BIT @SA.ERR,RO 
BNE ERROR1 
INC R2 

ASL R3 

BIT R3,RO 
BNE rv) 

JME ERROR2 
BIC R3,RO 

RTS PC 


;GET STEP N FORMATTED DATA 
ERROR 


‘TEST F ’ 

: REPOR 

;SET STEP REGISTER 

sR3 HAS STEP BIT PROPERLY SET 
;WAS STEP N SET? 

;IF SO INUE 
;IF NOT CORRECT STEP, ERROR 
CLEAR THE STEP BIT, FOR COMPARE 
é URN 






SEQ 0057 


; 
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104405 
104410 


010267 175646 


,0nses: 000000‘ 000514’ 


017767 175370 175650 


104420 000000‘ 000514’ 


Yoasos 000000’ 005672’ 


005716‘ 








| SESSSSSESESERDEESSSESSSESESESESESSESESSEAESESESSSSSSESESESSSESESESESOOOS 


1%: 


ERROR 1 
PRINT AN ERROR REPORTED BY THE CONTROLLER DIAGNOSTICS 


ERRORS 
PRINT THE VALUE OF THE SA REGISTER WHEN THE STEP BIT WAS NOT SET 
ERRORS 
PRINT A THE VALUE OF THE SA REGISTER WHEN THE ECHO WAS NOT SET 
CORRECTLY 
INPUT RO -> SA REGISTER 
R2 = STEP COUNT 
OUTPUT THE RETRY COUNT IS INCREMENTED 


: , 
IF THE RETRY COUNT > RETRY LIMIT, END MODULE 


RING WASN'T ALL ZERO -> ERROR 
DROP UDBAO 


ge ie usa am ta ama as NI EIS AD I 


BEGIN, ZERO ;ASSII MESSAGE CALL WITH COMMON HEADER 
BEGIN ; 

" oe: 2 om ame 

Ra Ad © 1 FOR ERP mt 





R2 , NUM STORE STEP REG I A NUMBER FOR CONVRT 

| OOOOSE0EE40EE4014tSESESSSSESESESEEESESSSSS SESS. S6066880648088800 
$ TO ASCII AND 
sSTORE AT ADR2 


<4 


OTOAS ,BEGIN, NUM, ADR2 


| ORROSEERESESESSEESEEESSESSSSESESESESSESESSSSESSESESSSSSESSEODE 


. sSTORE VALUE IN A 
js CRSSSSESESESESEESSOSESSESESSEESSSSSSSSSSSSSSSEESSSSSSSEESSSESOSS 













;STORE AT ADR 
OTOAS .BEGIN, NUM, ADR1 
| SESCESEESESRSSEESEERSSSSSSESESSESSDESSSSSESSSSSSESESSSSSESSSOSS 
eee ag sERROR 17 
& abt" CHECK IF IT IS THE NEXT ERXOR 
eens BEGIN, INITEL ;ASCII MESSAGE CALL WITH COMMON HEADER 
DEC R4 ;ERROR 27 





BNE 26 
MSGN¢ .BEGIN, INITE2 


DEC RS sERROR 3? 


IF MOT, CHECK IF IT IS THE NEXT ERROR 
WITH HEADER 





—_—<—_—_———/s — 





oe eee —_~ 
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001003 
1044035 


104405 
1044035 
005267 
022767 
001402 
000167 


104403 
104410 


000000’ 


000000’ 


000000’ 


000000 
175652 
000004 


175712 


000000‘ 
000000’ 


005724’ 


6%: 


BNE 3% IF NOT, CHECK IF IT IS THE NEXT ERROR 
MSGN$ ,BEGIN, INITES ;ASCITI MESSAGE CALL WITH COMMON HEADER 


| RASRADSEEEEEERESEREEEEEESEEEEERERESASS SESE ESESSSSESES ESSE SEES SS 
;CONVERT ADDR TO ASCII AND 
;STORE AT ADRS 

OTOA$ ,BEGIN, ADOR , ADRS 


| RaRaRERAESEAEEEESESESEEEERESSSSSEAESESESESEEEESESSSSESEEESSSSS 
| AAAARESAEREARESESESESEEESESEEEEESEESESESESSSSESESESSESEESSES SSS 


HRDER$ , BEGIN, NULL : 

| RESRRRRARASAEREREEESEREREESESSEEEEERERSSESEEESSSESESSS SD SOSADSS 
MSGN$ ,BEGIN, INITER ;ASCII MESSAGE CALL WITH COMMON HEADER 
INC Y SINCREMENT RETRY COUNT 

CMP @RLIM, TRY ;IS THE RETRY COUNT EXCEEDED? 
BEQ 63 :IF SO, END IT 

JMP START ;IF NOT, TRY AGAIN 

MSGN$ , BEGIN, ABORT ;ASCII MESSAGE CALL WITH COMMON HEADER 
END$, BEGIN ; 


SEQ 0059 


SEQ 0040 
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MOUULE CODE 
| p's RAPES SEEESEEEREERESEESEEEREEEESESEAESEEEEESESESSSEESESESSESERESSESO NESS 
a 
| 910 ; SET UP 
i 
| 91z ; GO FIND OUT WHAT DRIVES ARE OUT T 
| 333 ; A TABLE IS FILLED WITH UNIT SU BERSC MAX IS 16) 
; 
915 ; THIS SHOULD ONLY BE DONE AT THE VERY BEGIMAING OF RUNNING 
916 ; THIS DECX MODULE; THEN NOT RUN AGAIN 
; 
918 ; INPUT: DVICE HAS APPROPRIATE BITS SET. THE @ OF BITS = 
919 ; ® OF DRIVES WANTED TO TEST. 
920 : POSITION. OF BITS = WHICH DRIVE IN THE SYSTEM IS DESIRED. 
: 
92 3 EaARREREREEREEEEESSEREEESEEEESEREASSESEESESEESSSSESSSESESESS ESS ~thaeeeses 
923 003010 SETUP: 
~ aaa SET CONTRL CHAR AND WAIT FOR THE ATTENTION MESSAGES 
925 003010 004767 001650 JSR PC,SCC ;SET CONTROLLER CHARACTERISTICS 
3014 C05367 175250 MOR SONLY SET UP AT BEGINNING OF MODUL 
927 003020 ill BNE 19% + OP USE DRIVES FOUND AT BEGINNING ) 
926 003022 012703 000001 MOV i, SINITIAL PORTID VALUE 
3026 012704 ' MOV ABLEW,R4 :R4 -> TABLEW 
930 003032 011467 175574 MOV (R4), UNITNO s INITIAL UNITNO IN TABLEW 
931 003036 016714 175570 1s: MOV UNITNO, (R4) ;UNIT NO SET IN TABLEW;READY TO TEST 
932 003042 010367 175570 MOV R3,PORTID ‘PORT ID SET 
933 003046 MOV sPORTID SET IN TABLEW 
$052 012764 177777 000004 MOV €177777,4(R4) SINSERT NEW -1,-1 FOR LAST ENTRY 
935 003060 000006 MOV 4(R4), ; OF THE TABLEW 
936 003066 012767 002400 175546 MOV 2400, ;WORK = RETRY LIMIT 
937 003074 004767 001526 3$: JSR PC,GTSTAT 'GET STATUS, GET NEXT UNIT NUMBER 
003100 103006 BCC 7$ :0K, C 
939 003102 005367 175534 DEC WORK sELSE IF OFFLINE. DECR 
003106 001372 BNE 3$ F COUNT > 6, TRY AGAIN. 
941 003110 004767 000774 S$: JSR PC ,.DROP2 TROP T HE ORI 
942 003114 000437 BR 173 sTRY NEXT UNIT 
943 003116 016767 175170 175506 7%: MOV P UNIT +RSPACK, UNITNO T NUMBER FROM RESPONCE PACKET IN UNITNO 
944 ; ee CHECK FOR PASE WHERE THE MORE UNITS THEN DRIVES HAVE BEEN SPECIFIED. 
945 : aaa NEXT UNIT MODIFIER WILL GIVE A DUPLICATE UNIT NUMBER. 
946 003124 012702 000644’ MOV @TABLEW,R2 ;R2 -> TABLE TO FIND DUPLICATE 
947 003130 012705 000001 MOV #1, "RS IS TEMP PORTID 
948 003134 020227 000704’ 93: CMP R2.@TEND ;REACHED THE BOTTOM? 
949 003140 001420 BEQ $ ‘IF SO, EXIT 
003142 020 R3,RS ;REACHED THE LATEST ENTRY? 
003144 001416 BEQ ‘IF SO, EXIT 
952 003146 0267 175460 UNITNO, (R2) ;D0 WE HAVE A DUPLICATE UNIT NUMBER? 
953 003152 001 BEQ ;IF SO, E 
954 003154 062702 000004 11$ ADD 04 ,R2 :IF NOT, POINT TO NEXT POINTER 
955 003160 006305 ASL 
956 003162 7 BR ;AND CONTINUE 
957 003164 011467 175442 13%: MOV (R4),UNITNO DROP DRIVE FROM TABLE 
958 003170 010367 175442 R3,PORTID 
959 003174 67 72 JSR ‘ SAND DROP IT 
3200 05 1 
3202 15$ 


_ i ————————————————————_—————— SS — —_—- - 
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SEQ 0041 













ODE 
003202 026714 175424 CMP UNITNO, (R4) ;IS THE UNITNO CORRECT? 
003206 001402 BEQ i7 ;IF SO, CHECK FOR NEXT UNIT 
965 003210 016714 175416 - MOV UNITNO, (R4) ‘ELSE, CORRECT THE UNIT NUMBER IN TABLE 
967 003214 006303 ASL R3 ;NEXT PORTID SET 
968 003216 026703 175406 CMP DVICE.R3 ; DONE ) 
969 003222 100407 BMI 19% VIF R3 > OVICE, ALL DESIRED DRIVES ARE FOUND. 
970 003224 005267 175402 INC UNITNO NEXT NO | 
971 00 062704 000004 ADO 04,R4 ;POINT TO NEXT ENTRY TO TEST ORIVE | 
972 003234 022704 000704’ CMP @TEND ,.R4 ;POINT TO END? IF SO, EF | 
973 003240 101276 BHI i$ IF R4 NOT REACHED END, GO Test | 
974 003242 19%: 
975 003242 000207 RTS PC 
4 A 3 EHESEREREEEEESSEREESERSEESEEESESSAESESEEESESESEESESESESESESS 2266666646666468682 
978 3 
979 ; TSTOFL 
980 TEST TO SEE WHAT KIND OF AN OFFLINE CONDITION HAS OCCURED. 
982  esussausesssssnssussansceasccnscsunesunezssesusognsceunscascassossnsene 
983 022700 000003 +STOF @ST.OFL,RO ; HE DRIVE FOUND OFFL 
984 003250 001403 10% ;CHECK WHAT KIND 
985 00 022700 000013 CMP @ST.ORV,RO MAS IT A DRIVE ERROR? - 
986 003256 001012 BNE 13$ a IT WAS NOT, ERROR ( 
987 003260 032767 000740 175032 10%: BIT #<SC.NVL +SC.DIS+SC.DUP+SC. IOP>.P. STS+RSPACK OF THESE BITS SET 
988 VOLUME MOUNTED, UNIT DIABLED BY FIELD SREVI 
989 3 oR DUPLICATE UNIT NUMBER OR UNIT INOPERATIVE 
990 003266 001004 BNE 12$ xIT 
991 003270 032767 177000 175022 BIT @tC<SC.NVL+SC.DIS+SC. pur +8. TR MSK>.P.STS+*RSPACK ; ANY OTHER DATA? 
992 003276 001002 BNE 133 
993 003300 000241 12%: CLC ‘CLEAR CARRY 


003302 000207 RTS PC 
003304 000261 13$: SEC 


003306 004767 002124 JSR o— 





;RETURN 

SSET CARRY, wf WAS FOUND TO BE OFFLINE 
; OR ANOT HER ERROR 

;REPORT 

S RETURN 


‘ 
' 
' 


— 





SEQ 0042 
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C32767 
001004 


005767 
100443 
000422 


012701 
004 


012767 


001000 


175304 


000010 
001262 


177672 


175144 
140000 
001426 


001316 


174742 
174732 


175174 


100000 


174474 


174674 


175210 
175200 


175174 


| PASRAEEEEEEEEDEEEESEREREREESSSESESERESEESSSSOSESEESSSESSSESESESSOSSOODS 
CYCLE DISK 
DO THE DISK CYCLE 
00 GET STATUS COMMANDS TO ASSURE THAT THE DRIVE 
IS AVAILABLE (FOR DUAL PORTING) 
ee DRIVE TO BE ONLINE 


RUE 
an BLOCK 


(Ces oe cs oe OF oe ae oe oF oe ae SF OF ae oF oF 
es oe Gs Os Ge Ge OF Ge Gs Se OF SH Gr SF 












READ 
DATA CHECK 
MAKE THE DRIVE AVAILABLE 
ELSE DROP DRIVE 
SS ee 
L 
@SR.DUA,SR1 DUAL PORT? 

BNE 2 F NOT, CONTINUE 
. gas CHECK IF WE DO ONLINE FOR THE Firs} TIME 

TST TRY OF teY HAS SET MSB, DON’T DO ONLINE 

BMI 16$ ; DON’T DO ONLI 

BR 10$ ; ELSE DO ONLINE (1ST TIME THROUGH IN THIS PASS) 

228 

| eee DO GET STATUS COMMANDS TO ASSURE THE DRIVE IS AVAILABLE TO THE CONTROLLER 
; #e¢ FOR DUAL PORTI 
5; #22 
3$: MOV @10,R1 ;R1 = @ OF GET STATUS TO 90 
4s: JSR PC. GTSTAT (IS THE DRIVE OFFLINE? 

BCC SIF ALL OK, DO THE CYCLE 

SR gt TSTOFL ELSE CHECK IF OFFLINE 


ERRED, DROP 
WAIT FOR AVAILABLE ATTENTION ME 


BCS 
; #e¢ HANDLE OFF LINE DRIVE. MESSAGE 
CLR EXP AN AVAILABLE ATTENTION MESSAGE 





BIS @<RG.OWN+RG.FLG>, rsponce3” wSET RING FOR ATTN MESSAGE 
JSR PC, INTERP ;WAIT FOR MESSAGE 
:; 2ND ATTENTION MESSAGE 
BR 10$ 
6$: DEC Ri : DONE ? 
BNE 43 ;IF NOT DONE. TRY AGAIN 
10$: JSR PC .ONLINE COMMAND 
BCS 2s Y T. TRY AGAIN 
14%: MOV P .UNSZ+2+RSPACK , UNSZH UNIT SIZE HI ADDRESS 
MOV a 2 «RSPACK , UNSZL 


: IF 
iTS UNSZH ALSO 0? 
BEQ CYCLES ;IF 0, TRY TO BRING ONLINE AGAIN 
; see a - OF mS — THAT INITIAL ONLINE IS DONE 


TST 


3 oo abaeibddieeuane 
; THE FOLLOWING SEQMENT SETS THE LIMIT FOR THE UNIT SIZE. ; 
. THE ete CUNIT SIZE - CWRITE BUFFER SIZE/NORMAL BLOCK SIZE)) 





174476 


000400 
175140 


000156 
001154 


174300 


174254 


000000‘ 000126’ 
174234 


174724 
40000 


1 174454 
001206 








SEQ 0045 
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MODULE CODE 



















; IS THE LAST SECTOR POSSIBLE TO RIGHT TO. ; 
rd 
| RARSRESEAOEEEEEESEEREEEESEDEDEESSESESESESSESSESSSESESSESSSESESSSSESEOOSS 
16%: : 
MOV WBUFSZ,RO ;WBUFSZ IN RO AS A LIMIT 
CLR Ri ;RL = @ OF BLOCKS 
18%: INC R1 VINCREMENT THE © OF BLOCKS 
SUB €400,RO ;DECREMENT A BLOCK 
BPL 18% ;OR IF > O 
SUB R1,UNSZL ;ADJUST THE UNIT SIZE 
; eee NOW PICK WHICH BLOCK TO WRITE TO 
JSR ; ;ELSE SELECT A SECTOR TO TEST 
JSR PC /GTSTAT ‘DID WE NOT GET THE DRIVE ONLINE? 
Bcs 2% ‘IF WE DID NOT, GO BACK TO TOP AND TRY AGAIN 
CMP @ST.AVL.RO SIS IT AVAILABLE? 
BEQ 23 ‘IF SO, GO BACK TO TOP AND TRY AGAIN 
; eee WRITE TO THE BLOCK SELECTED 
JSR PC WRITE ;WRITE THE DATA FOR USER DEFINED @ OF WORDS 
acc 19% IF 
BIT @SR.DUA,SR1 SARE WE DOING DUAL PORT? 
BNE 23 sIF YES, RETRY 
JSR .ERRORH SELSE, HARD ERROR 
BR 22 ;AND EXIT; BCS 22% ;IF ERROR, EXIT 
; eee READ IT BACK 
198: JSR PC. READ 
acs 22% 
BIT @SR. CHP. SR1 
BNE 20% 
; see COMPARE DATA 
CDATA$ . BEGIN, RBUFPA ; REQUEST FOR MONITOR TO CHECK DATA 
on ; IF ERROR, CONTINUE 
208: BIT @SR.DUA,SR1 ;00 WE DO AN AVAILABLE? 
BEQ 22% SIF NOT(BIT NOT SET) SKIP AVAILABLE 
; eee MAKE THE ORIVE AVAILABLE 
vi JSR PC, AVAILB ;RELEASE THE DRIVE 





;EVERY THING WAS OK 

;WASTE A LITTLE TIME SO OTHER 
; CONTROLLER CAN GRAB DRIVE 
24%: RTS PC ;RETURN 


; #e@ SUBROUTINE TO WAIT FOR AN INTERRUPT 
AF datas AFTER THE INTERRUPT OCCURS 


CLR EXPAV EXPECT AN AVAILABLE ATTENTION MESSAGE 
BIS @<RG. OWN+RG.FLG> .RSPONC +2 SET OWN AND FLAG FOR RESPONCE RING 
. INTERP ‘WAIT FOR ATTENTION MESSAGE € RETURN 


; SPARE SESESESESESSSSESSESESSSSESSEDESSESSSSSSEOSSESSSESOSOSSSSESSLOOSS 


; DISKLESS CYCLE 

: 00 A MAITENENCE WRITE 
; AND A MAITENENCE READ 
; 
; 
: 













AND CHECK THE DATA 


PPPPTTOTTT TTT TTT Tt ees 


— — - 





a ee 
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1109 00361 CYCLEL: 
--s« ¥120 003612 004767 000470 JSR PC .MAITW 
-—s«sTTX2 003616 004767 000430 JSR PC‘ MAITR 

1112 003622 032767 004000 174166 BIT @SR. CMP, SR1 
«F273 003630 001004 BNE 
| «F224 003632 104412 000000' 000126' CDATA$ .BEGIN, RBUFPA , 

003640 003642’ 02 , 
1115 003642 21%: 
1116 003642 000207 RTS PC 





-——-————————- 
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*.. 





002000 
000000' 
174170 
000000' 
174160 


100000 
174712 
174712 
174704 
100000 


174644 
174640 


174626 


174620 
174616 


174610 
174602 


174144 


174642 


bb RDAbAbEAEREOESEE4EEEEREEEEEEEEEEEREESESESESEEESESESESEESESSSSES OSES 
PICK A BLOCK TO WRITE TO. 


; 
: 
; 
EITHER PICK THE NEXT SEQUNTIAL BLOCK (DEFAULT) OR TAKE ONE AT 
: RANDOM. 

3 

t 


OUTPUT: FILL SECH & SECL (CURRENT SECTOR ADDR) 


3 
babhbdeeedheet 6000606060660666666660060666666666646666666666466688888808 
: 



















BIT @SR .SEQ,SR1 ;CHECK SR1i FOR RANDOM ACCESS MODE 
BEQ SEQACC ;8R IF SEQUENTIAL ACCESS 
RANACC: 
RAND¢ BEGIN 
ANNUM, -( SP) :GENERATE THE SECTOR ADDRESS 
RAND¢ , BEGIN 
MOV RANNUM, -( SP) s;GENERATE THE SECTOR ADDRESS 
: 
$ ADJUST HI ADDRESS FIRST 
; 
cL_c CARRY FOR ROTATE 
BIC #100000, (SP) GIT MAKES SURE VALUE’S + 
i SP )+, SECH ADDRESS 
Q 
; #ee UNSZH > 
is: ; HAVE 
s IF 
;CLEAR 
+ ORANeH TO 
5 
2: TEAR REST 
sCLEAR CARRY FOR 
sIF Ri ROTATES INT 
3:I1F RL NOT 0, MORE BITS TO CLEAR 
;CLEAR UPPER BITS OF HIGH 
;IF THE HIGH 
3IF <, EXIT 
3 iF Ss, TEST u 
;SECH = 
sEXIT 
; 
: SECTOR ADDRESS 
3s: SECH :CLEAR 
43: UNSZL :IS 
BEQ 6% 3 IF 
S$: SUB UNSZL ,. (SP) ;ELSE 
Bcc 3 IF 
ADD UNSZL . (SP) ;ELSE 
BR 7$% ; AND 





SEQ 0045 
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| 
| 
| 





005016 
012667 
000207 


174566 


174560 
174552 


174542 
174536 


174524 
174522 


174554 


174540 


6$: 
78%: 


CLR 
MOV 
RTS 


(SP) 
(SP)+,SECL 
PC 


;GENERATE DISK ADDRESS BY SEQUENTIAL ADDRESSING 


SEQACC: 


16%: 
178: 


18$: 


INC 
BEQ 
CMP 
BLO 
BR 


INC 


SECL 

16% 

SECL ,UNSZL 
18% 

17% 

SECH 

SECH, UNSZH 
18% 


SECL 
SECH 


PC 


s INCREMENT THE SECTOR ADDRESS 
ZERO 





sINCREMENT SECTOR HIGH ADDRESS 
;OVER LIMIT? 


; IF LOWER 
s;RESET THE STARTING SECTOR ADDRESS 
$ 


SEQ 0046 


;CLEAR LO SECTOR ADDRESS (IF HIGHEST POSSIBLE ~ 0) 
ag Hd SECTOR ADORESS 


ee 


—— = — = 





SEQ 0047 
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1197 
1198 
1199 
1200 
1201 
1303 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
4233 
12 004100 
12 004100 
14 004106 
1215 004110 
16 004110 
1237 004116 
18 004120 
1219 004120 
1220 004126 
1221 0041 
004136 
1224 004144 
1225 
1226 004146 
1227 
004154 
004162 
1228 004164 
004170 
. 004176 
1230, 004200 
1231 04206 
1232 12 
123 14 
1234 
1235 


012767 
000407 


012767 
000403 


001445 
022767 
001441 
046767 


000001 
000002 


000003 
174504 
177777 


174464 


000000' 


174352 


000000’ 
177777 
174302 
000000' 
174264 
000000' 


000000 ' 


174406 
174376 
174366 


174474 
174472 


174454 


000632’ 


000636 ' 


000002 


005732’ 


005750' 


005766‘ 


; RACSSSESEEAAERESESESESESEEDESESESESESESESESESS EESEESESESSSESESSSESO SOLS 


DROP A DRIVE 


A DRIVE WOULON’T RESPOND, DROP IT. SET THIS UP IN OVICE. 


INPUT UNITNO = UNIT NUMBER OF DRIVE TO DROP 
PORTID = BIT SET TO DROP DRIVE 
OUTPUT OVICE HAS A BIT CLEARED. THE BIT POSITION 


REPRESENTS THE ORIVE 


; AARERAAERESEEAEAAEAEEESEEESESSERESSSESESSESEEESSSESESSSESESESSSSESOSESS 


DROP 1: 


DROP 2: 


DROPS: 
DROPS: 


1%: 


2s: 


MOV @1,NUM 

BR DROPS 

MOV @2,NUM 

BR DROPS 

MOV @3,NUM 

Bi PORTID .DVICE ;HAS THE DRIVE BEEN DROPPED, DON'T DROP AGAIN 
CMP 6177777 ,PORTID "IF DRIVE HAS BEEN DROPPED, DON’T DROP AGAIN 

; WILL ZERO DVICE PREMATURE) 

BEQ 10% SIF =, DRIVE HAS BEEN DROPPED -> EXIT ROUTINE 


BIC PORTIO,OVICE ;DROP THE ORIVE 

5 RRPRERSEAESEESSEEEEEEEEDSS EESEESESESESSESSESESEESESESSSESESSS 
;CONVERT UNITNO TO ASCII 
sSTORE AT ADR2 

BTOD$ , BEGIN, UNITNO, ADR2 


REREREHESEEEASEADSSESSSEESEEREAESESSASSSESSESESESESSSSSESSESESES 
RB 


5 
; SRARSEREESSEESSASSESASESESSSSESSSSSESESESESSSESSESESESSESESESSSSS 


; T PORTID TO ASCII AND 
s;STORE AT ADR1 
OTOA$ ,BEGIN, PORTID,ADR1 
; AAASSREAEEEDREESEASSEEDESESSSSESESESESESSSESSSSSSSESESSSSSOSEOS 
MOV @177777,2CR4) ;DESELECT ORIVE SO IT WON'T BE USED AGAIN. 
NUM : FOR WHICH ERROR? 
BNE 1% ;IF NOT FOR ERRORS, CONTINUE 
teas - acca ;ASCII MESSAGE CALL WITH COMMON HEADER 


DEC NUM ;WAS UNIT NOT FOUND?(NON EXISTENT UNIT) 


BNE 23 ;IF NOT NUE 
HSGN¢ . BEGIN. DRP2 ;ASCII MESSAGE CALL WITH COMMON HEADER 
MSGN$ , BEGIN, ORPS 


sASCII MESSAGE CALL WITH COMMON HEADER 
; ACTUAL UNITS FOUND 


SEQ 0046 
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33 004250 000207 10$: RTS PC 
3 


. -— 


® ~_—— ——_ -—— 


DUBE DEC/X11 SYSTEM EXERCISER M MACRO vO5.03 Friday 27-Sep-85 16:23 Pege 21 
MOOULE CODE 








124 


He 


939922 
hv 


EEE reacties 


<a Hi SRBURR SUE EES 


001066 
000030 
174216 
174206 
173626 


173710 
173776 
74030 


i 
173764 
173662 


| ROSSESESEERESEEESESESEEESESESSSESESESESSSSSESSSSSESSSSSSSEESESESESOSOLS 


3 ; 
3 MAITENENCE READ ; 
: : 
: SET UP A PACKET WITH : 
: OPCODE € MODIF IER : 
$ REGION ID & REGION OFFSET ; 
: READ BUFFER DESCRIPTOR : 
5 BYTE COUNT : 
3 THEN SEND THE PACKET $ 
$ : 
3 


eascsccssasnsssascssssacancssassssesscsossncsons ncenreccsseoeoussen 
ITR: J 


THE PACKETS 





MOV :SET THE OPCODE 

ad ;SET THE BUFFER DESCRIPTOR 

MOV ; STORE THE BUFFER SIZE IN WORDS 
BR ;SET UP THE REST OF THE PACKET 


| RARASESSSEESSESESESEEEEELESESESERESSESSSSSSSSESSSSESSSSESESESSSOSEOOSDS 
MAITENENCE WRITE 
SET UP A PACKET WITH 
oPpc é MOOIFER 
REGION ID € REGION Ad al 
BYTE et EITHER WBUFSZ OR LIMIT IF WBUFSZ > LIMIT) 





v 


| ShASSESAERESEREESEESSSEEEESEESORSESEESESSESESESEESEESESSOSEESESSEOSSESS 
MAITH: ;CLEAR THE PACKETS 

iSET T THE 

SET THE BUFFER DESCRIPTOR 

‘IS THE BUFFER SIZE > LIMIT? 

+ <4 

;STORE THE BUFFER SIZE IN WORDS 


;AND SK 

; STORE THE BUFFER SIZE IN WORDS 

T NUMBER OF BYTES 
BUFFER 





is: 
MAITP: 








:SET REGION ID = 

;SET COMMAND 
:SET Re Ph VIRTUAL C 
;SEND THE PACKET 


asaasaanenanyedts 


0177777, CHEVIR 
#177777 .RSPVIR 
SEND 


SEQ 0049 


VIRTUAL eo €-1 FOR DOM) 
CIRCUIT 


— 


ALLL AL LLL LAL ALLO LE I OL my —— 
= « — 
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MODULE 

1239 ; ROCROSSSEEEEERESESSESESESSSESESSSSSEEEESSSESSESOSESSESESESSSSSESSOSESOS 

B38 WRITE 

: ; SET UP OP MODIFIERS BUFFER SIZE (BYTE COUNT). ; 

1301 ; BUFFER DE eos ton c CPYSICAL A ANO EXTENDED ADORESS ) , 

1 ; LE READ SET SIMULAR DATA IN THE PACKET: : 

i ; DISK ADDRESS AND CYLINDER ID (LOGICAL BLOCK NUMBER), , 

1395 ; THEN SEND THE PACKET. : 

Ere : $6606606060660000060060060000006606606666060SSSS4SSSSSSSSSSSSSSSSS84088 : 

1307 004426 004767 000712 WRITE: JSR , ACKETS 

1308 004432 012767 000042 173752 MOV @0P . UR, P . OPCD+CMPACK Ser THE 

1309 004440 016700 173476 WRITEA: HOV weUr IN 

1310 004444 016767 174040 173750 MOV ere: P ADPA+CMPACK ISET THE BUFFER DESCRIPTOR(PA) 

isis 004452 016767 174034 173744 nov WBUFEP .P . ADEA+CMPACK ;SET THE BUFFER DESCRIPTOR(EA) 

oo : 

ety 3 06006000066066060606606600000006666066608SSS6ESSESSSSSSSSSSESEESSESESESS 

13i$ READ ; 

+338 $ ; 

i 9 ; up e geeerla iF TERS BUFFER | SIZE (BYTE COUNT), ; 

132 ; Bee An CYL rESEh e Fee Ook NUMBER). ; 
3 : 

ETH . Bec ols et RE , 

1325 004462 004767 000656 READ: JSR PACKETS 

1326 004466 012767 000041 173716 MOV ;SET THE OPCODE 

1327 004474 016700 173432 MOV ;STORE THE BUFFER SIZE IN WORDS 

1328 004 016767 17 173716 MOV SET THE BUFFER DESCRIPTOR 

1329 004 16767 173772 173706 MOV 

i 904 4 012767 000040 173560 READA: MOV {SET RESPONCE PACKET LENGTH 

1 012767 000040 173646 MOV ;SET COMMAND PACKET LENGTH 

1332 004 ASL ;MAKE IT NUPBER OF BYTES 

1333 004 010067 173660 MOV ACK 1SET READ Ize 

1334 016767 174054 173672 MOV SeeL. P .LBN+CHP sSET LOGICAL BLOCK NUMBER 

1335 016767 174050 173666 MOV SECH.P. SON CHP ACK 

1336 004552 76 BR SEND ;SEND THE PACKET 





| SEQ 0051 
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; SESEEESSEEESSESESESSSESESSSESESSSESSSESESESESSSESESSESESSSSSESESSOO SESS 
DETERMINE ACCESS PATHS 


SET UP CODE, GO SEND PACKET 
seasccsccssansnsscsssssocessassssssssssonsensensarocassossoeseesom” 


5 004 004767 000564 : PC AK 
004 012767 000013 1 MOV 20° . DAP ,P .OPCD+CMPACK ;SET OPCODE 
7 004 012767 000074 173 MOV @60. .RSPLEN ;SET LENGTHS 
48 004574 012767 000074 173574 MOV @60. . CHPLEN 
004602 BR SEND ‘SEND THE PACKET 


| CASERESEREEEESESERSEEEESSESESESSSESESESSSSSESSSSSSSSESSSSSSOSESSSSOOSSS 
AVAILABLE PACKET 
SET OP CODE AND MODIFIERS THEN SEND THE PACKET 


3 
‘ 
é 
jacssscsssssecocsncnoncnonacsssessossseseooossepsorenscsoscsoosononooees 





7 






rtrtr LALA 


38 004604 000534 AK 
004610 012767 000010 173574 MOV O56 AVL P .OPCD+CMPACK 
004616 012767 000014 173456 MOV e12. Mesten 

004624 000413 BR GTSTAA 





= 
a 


| COSSSESSSSESSSESESSSEDESEEEESSSESESSSSSESSSSSSSSSSSSESSSSSSSESSSESSODSS 


GET UNIT STATUS 


T OPCODE AND MOO TT IEE ALKET THEN NEXT UNIT 


~~ 
“eo oe oF 


x 





Jeon. eoensssonenenonsess ene = SS 





yd ed ed ed ed ed ed lad od ol od ol ol ad onl axl aol exh ol ol aol wh hh wh wh eae 


7 000312 TSTA”: JSR ' PACKETS 
7 oo0000S i MOV } Toe 

poorer 000001 i MOV 3 
74 000060 173426 Mov : PACKET LENGTH 
73 004654 000014 173514 GTSTAA: MOV 3SET PACKET LENGTH 
76 004662 ee ;SEND THE P 


———— 


t 
73 







+ 4 othe 


sties 
0187 7 
0 7 


76 


173500 
173376 
173500 
173500 


JSR 
MOV 
MOV 
MOV 





SET OPCODE, MODIFIERS 
SHADOW UNIT, ERROR FL 
THEN SEND PACKET 


Pr. 
@32. .RSPLEN 
€36. .CMPLE 





AGS 





gp ts SYSTEM EXERCISER 4 MACRO VOS.05 Friday 27-Sep-85 16:23 Page 24 


sOSSSSeeeossessessssesssesessssssssssesesssssSsssSAsSSSESSSSSSessessesses 
SET CONTROLLER CHARACTERISTICS 
AND CONTROLLER FLAG (ENABLE ATTENSION MSGS) 

MSCP VERSION, HOST TIMEOUT, USE FRACTI 

ALL TIME AND DATE 


; 
SOSO666666666S6S6SS6SSSSSSSSSSSESESSESESEE SHARAASSHAAKAATSLSSESAAASHSSKHSHASSS 


P| $£666606060666600060606086000FSSSSSRESEEEEAEEESESASESESESESESESSSEREESES 


JSR ;G0 CLEAR 
MOV ;SET UP 
MOV 

MOV 3 

MOV ;SET THE 
BR : 

ONLINE 


UNIT ID, HOST ID 


ShdbOSSESSERESESESERSESERESSOESSEESEESSRESESESESESESESESESEESEEESSES 
s;CLEAR PACKE 
;SET RESPONC 

OMMAND 


SET © 


‘ N ; 
@0P ONL,P.OPCD+CMPACK  ;SET THE OPC 






CONTROLLER FLAGS 
; TO ENABLE ATTENTION MSGS 
SEND THE PACKET 


SEQ 0052 


— a 


—— 


-————e— 





SEQ 0055 
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| $£466666066060606000006SSSSSSSSSSESSSESSSEESSAEASESSSSESESSESSSSSSSSESSS 






AND UNITNO IN THE PACKET 
Mak ag 
SSEO 


YCLED. 


INPUT: CMPACK IS FILLED EXCEPT FOR CMOREF & UNITNO 
INTERRUPT VECTOR AND BR LEVEL ARE ESTABLISHED 


OUTPUT: MSPACK IS FILLED 
CLEAR CARRY IF PACKET WAS OK 
ELSE GO 00 A HARD/SOFT ERROR 


saaacesesassssnssssssssaacssasaconssnnnsesssersesnogsnracar ane rien 
SEND: ; 





BEQ ; REF @ CANNOT «= 
173416 CMDREF .P . CRF «CMPACK SET COMMAND REF NUMBER 
173414 P'UNIT<CMPACK § ;SET UNIT NUMBER 
17 BIC ORG.FLG, : ;CLEAR FL 
173260 BIS " OWN, COMMIND + 2 SET OWN FOR COMMAND RING 
173246 BIS ree OUNRG.FLG>.RSPONC+2  ;SET OWN AND FLAG FOR MESSAGE RING 
iniaiaai ae BADDR “FORCE POLLING TO PACKET 
* €XIT$, BEGIN ;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
NTRUPT : 
005032" PTRQS.BEGIN, 1$ ; QUEUE UP TO CONTINUE AT 1$ AND RTI 
3 ie CSS SS OO SES SHOKSSSHSHSCSSEHSHEEH AS HKC CHO VEE TESS SSCBCSESSCSRe80ee""" 
is: 


RINTR ;CLEAR INTERRUPT FLAG 
OOP .AVA,P.OPCD+RSPAC%  ;WAS AN AVAILABLE ATTENTION RECIEVED? 


153 +IF XT WAS, EXI 

173242 @0P.ACP.P.OPCO+RSPAC%  ;WAS THE ACCESS PATH ATTENTION RECIEVED? 
16% ;IF IT WAS 

in ; ELSE CHECK SUCCESS 
3 
P. STS+RSPACK,RO ; SUCCESS? 
14 ;IF YES, EXIT 
8177740,RO ;CLEAR UPPER 11 BITS OF SUB-STATUS 
14% :IF SUCCESS = 0, EXIT OK 
ERRTYP ;IF GOT HERE, ERR 
@ST.ORV,RO : ERROR? 
SIF NOT NEXT TEST 

@SR.DUA,SR1 


WE DUAL TING? 


172704 SARE 
IF NOT, GO REPORT ERROR/ELSE EXPECTED 
SPACK 1I ? 


173176 
173166 


12% 
i aaeaete apiettaliincas :IS IT AN SOI RE xT 
o<ST .DRV+SC.INV>.P.STS+RSPACK IS IT THE INVALID S01 Re SPONCE ? 








LL LL 





172734 


172716 


172700 


173160 


173140 
173150 
173120 


172600 





i 005316 173202 
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10$ 
12s 
38: 


@ST.OFL RO 


+ ote . ONL ,P 
@0P .GUS .P .OPCD+CMPACK 


10% 
GOP .WR,P .OPCD+CMPACK 
i2$ 


; #ee OFFLINE WHEN TRIED ONLINE OR GET var STATUS 
A P .OPCD+CMPACK 





10%: SEC 
RTS 


SEQ 0054 


OTF ePeaD cAROR NOT ONLINE, EXT" 


So ST, 


ELSE, SET ERROR TYPE 
AND HARD ERROR 








; HOST BUFFER ACCESS ERROR? 
;IF NOT NEXT TEST 
2ELSE. T T 
; AND 
; DATA ERROR? 
;IF NOT NEXT TEST 
;ELSE, SET ERROR TYPE 
;AND SOFT 
; WRITE PROTECTED? 
;ELSE HARD ERROR 
; STILL AVAILABLE? 
;IF NOT NEXT TEST 
rELSE. OMMANOD 
STATUS 

;THEN EXPECT LEAVE ROUTINE 
;ELSE 

IT OFFL 

NOT NEXT TesT 

WAS IT AN ONLI - 

F SO, SET CARRY/EXI 

;1S IT GET UNIT STATUS COMMAND? 

SO. SET CARRY/EXIT 
sIS IT WRIT 
i F NOT ERROR 
:€ SET CARRY T 
‘AND Ste TURN TO DROP ORIVE/AWAIT AVAILABLE DRIVE 


poet HARD ERROR Peart WITH ERROR TYPE = 6 


: 
MOV ERR .6,ERRTYP 





1 ase SOeT ERROR EXIT WITH ERROR TYPE = 0 


BR ERRORS 


; @ee SUCESSFUL EXIT 
148%; 





RTS PC 
iS$: 


; @ee WAIT FOR ATTENTION 
; eee DID WE GET AN A 
TST EXPAV 





AND HARD ERROR 


veneer WITH ERRTYP = 0 E€ IS A SOrT ERROR 
T.CMP,ST.MFE,.ST.ABO,ST.CMO 


;CLEAR CARRY —— PACKET IS OK 
;ELSE, OK, SO F 


ON INTERRUPT 
AVAILABLE ATTENTION MESSAGE THAT WE EXPECTED? 


ELL A 


SE@ 0055 
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1519 BNE 168 VIF EXPAV IS NOT 0, WE GOT ONE WE DION'T EXPECT 
i oe? «177777 «173172 HOV 0177777 .EXPAV :CLEAR, EXPECTED AVAILABLE ATTENTION MESSAGE WORD 
i 000767 mn BR 148 AND RETURN 
1 : 

40000 @<RG..OWN+RG.FLG> .RSPONC +2 
2 Seis. — Sar INTERP ‘ WAIT FOR RESPONCE OF LAST PACKET SENT 


> 


_— — er 


SEQ 0056 
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MODULE CODE 
i 7 ROSAS RESSSESEEEEEEESESESESEESSSESSESESEESSESESSSESSSESESSSSESS SES SSOEOS 
15268 ’ 
: : CLEAR PACKETS ; 
i ; 
reat ; ASSUMPTION: 1) RESPONCE BUFFER PRECEDES THE COMMAND BUFFER ; 
1 32 ; >) TWO WORDS BEFORE EACH BUFFER IS FOR LENGTH ; 
153 ; OF PACKET AND VIRTUAL CIRCUIT ; 
1534 ; OUTPUT: R2 = © WHEN DONE ; 
: 35 ; RS = END OF COMMAND PACKET WHEN DONE ; 
i 
1335 | SESOESREEESEESEAESEEESESEESESSEESEOSESEESSSSESESESSESSSESESSSESSOSSD ODS 
1 38 005344 RPAK : 
1539 005344 017767 172702 173142 MOV @SAREG , NUM :IF SA REG NOT ZERO, STORE IN NUM 
1 352 001421 BE S$ SIF SA REG IS ZERO, CLEAR PACKETS 
1541 jeoacasasncacacscacccacsosscecnsteiee CIM 
ONVERT NUM TO ASCII AND 
‘STORE AT ADR1 
005354 104420 000000' 000514’ OTOAt .BEGIN, NUM, ADR 
| RORORSSEEEEEESEDEEEAESEESESESSESEESESSESSSESESSSESSSSSESSESADS 
1542 005364 104403 000000’ 006024: MSGN$ , BEGIN, SANOTO ;ASCII MESSAGE CALL WITH COMMON HEADER 
1543 005372 010346 MOV R3, -(SP) ; SAVE RS 
1 74 010446 MOV R4.-(SP) iSAVE R 
1545 005376 004767 174010 JSR " INITUD Se ent SA REGISTER 
1 012603 MOV (SP)+,R3 IRESTORE RS 
1 012604 MOV (SP)+,R4 sRESTORE 
1548 004767 177252 JSR sce 2 CONTROLLER CHARS AGAIN 
1549 605412 172426 INC NT OE EREMENT ERROR COUNT 
1550 ‘DOING THIS WILL CAUSE ANOTHER CALL TO CLRPAK 
1551 005416 012702 000064 S$: MOV @52..R2 ;R2 = @ OF WORDS TO 
i 3 012705 000302’ MOV ORSPLEN,RS RS -> *RSPLEN, 1ST WORD TO CLEAR 
155 gas025 63: CLR (R5)> ;CLEAR WORD 
1 34 005302 DEC R2 ;R2 = ZERO? (DONE CONDITION) 
1555 32 0013 BNE 63 ;IF NOT ZERO, LOOP 
i331 005434 000207 RTS PC ; RETURN 
i z | RARSESEEESSSOEERSEREEEAESEEESESESASESSESESSSESESSESESSSSESSESESESESSSDS 
1559 : : 
- ° ; HARD ERROR CARRY WILL BE SET ; 
¢ 
i | RARRSAERSERERSEREDEESESEESSESESSESSESESESESESESSEESSESSSSSSOSSSEESESSSS 
1563 005436 RRORH: 
1564 005436 032767 000004 SIT @SR.REP,SR1 ;DO0 WE REPORT THE ERROR? 
1565 005444 001403 REQ 7% :IF SO, REPORT 
1566 005446 005267 172372 INC HROCNT SELSE, INCREMENT THE HARD ERROR 
1567 ; COUNT IF NOT REPORTED 
1568 005452 000407 BR 8s :SKIP REPORT 
1569 005454 004767 0v0056 7: JSR PC, SETTAB ;SET UP TABL 
1570 sr eceacesssccesenascccanscssssssscasceseaaasssccancsccesasscsss 
005460 104405 000000’ E : : 
teh OSSSAAASSSESSAEEESESESSESSEAESESESESSSSSSESSESSSSSESSSSOSESS 
004767 000070 ; 
1572 005472 000261 8s: SEC 
1573 005474 000207 RTS PC ;RETURN TO CYCLED 


— 


SEQ 0057 
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1575 PAPAS SRSEEEEEESSESESSEDLEOEEESESSESESEESESSSESESSEEESESEESESOSOLELOOSS 
1576 : ’ 
eae $ SOFT ERROR CARRY WILL BE SET 3 
: 
1579 | RARERAEEREEEEEREEESERESESESSSESSSEESESESESESSSSESESESESESESESOSSOSOSLSS 
1580 005476 ERRORS: 
1581 005476 032767 0900004 172312 BIT @SR .REP,.SR1 ;00 WE REPORT THE ERROR? 
Th 005 001403 BEG 9% sIF SO, REPORT 
1 005506 005267 1723550 INC SOF CNT ELSE. INCREMENT THE HARD ERROR 
1564 ; COUNT IF NOT REPORTED 
1565 Si2 000407 BR 10$% 3 SKIP T 
1586 S$i4 004767 000016 9%: JSR PC,.SETTAS ;SET UP TABLE 
1587 | RAAROREEESEREESSEEESESEEESSSSESEEESESSSSSESSSSSSSSSSSSOSOSSEEDSS 
002520 104406 000000‘ 000000 SOFER$ ,BEGIN, NULL : 
| SASESSAEREEAEEESSEESEEEESEEEEEEDESESESESESSESSESSSSSSSSSSESSOSSS 
1568 oeaes 004767 0000350 JSR PC ,PRINTE 
1589 00S 000261 10%: SEC ;SET CARRY 
ett 005534 000207 RTS PC sRETURN TO CYCLED 
A328  AARSREEAAEEESESESAEESSEEEEEDEESEEESEESSSSESSSSSESESSSSSSSSSESSSSOSSESSS 
$ 
1335 : SETTAB 5 
: $ 
13 : SET UP A TABLE OF VALUES FOR A SOFT OR HARD ERROR $ 
i 
1598  penencenseaansanasanssensscnscnsccansssnsccsssasecccscasscnssesssssess 
1599 005536 TTAB: 
005536 016767 172244 172334 MOV ADOR ,CSRA ;SET UP CONTROL STATUS REG REPORT 
1601 005544 016767 172559 172332 MOV P.STS+RSPACK ,ASTAT ;SET UP STATUS 
1602 005552 017767 172474 172322 MOV @SAREG,ACSR sREPORT WHAT IS STATUS REG 
1603 005560 000207 
1604 ; O49 5 5 RRORROREESESESEEEESESESSESEEEEESESSESE EES FEEEEEESEEESESESOSSSESSSS 
1605 ; 
1607 ; PRINT EXTENDED ERROR MESSAGE 
: 
1606 $ PRINT STATUS. OPCODE, UNIT NUMBER, BYTE COUNT, LBN AND ADDRESS 
$ 
161 ; RSSRSSESAASESSSASEESEOSEESSEEEEESESESEEESSSSSESESESSSSSSSESSSSSSSSSONSS 
1611 005562 PRINTE: 
| PASSO REEASSSESESESESEEEEESSSESEEESESESSESSSSSSESESESSSSSSSSOESS 
: T P.STS+RSPACK TO ASCII 
:STORE AT ADR1 
005562 104420 000000' 000520’ OTOA$ , BEGIN, P.STS+RSPACK,ADR1 
005570 000526' 
| PRRSRAEASEEESESEASEEESSESSESESSSSESESESESESESESESESESSSSSFSSOSS 
1613 ; ORS ESEEESAESSSAERESESEESSSESESESSSSESSSESSESSSEESESESSSSSSLSDDS 
s;CONVERT P.OPCD+RSPACK TO ASCII AND 
;STORE AT ADR2 
005572 104420 000000’ 000316’ OTOA$ .BEGIN,P. OPCO+RSPACK , ADR2 
005600 000535' 
| RohbShESdEHESEEEESESESSSSESESLORESSSSEESSSSSSSESESSSSSESOSSOSSS 
1614 | REREASAESERESSESSORADSSSEESSEEESERESSSSSSSESESSESSSSESSSESSE SESS 
;CONVERT P.UNIT+RSPACK TO ASCII AND 
;STORE AT ADRS 
005602 104420 000000’ 000312’ OTOA$ , BEGIN, P.UNIT+RSPACK , ADRS 


ae —-- 


005610 000544’ 


1615 
005612 
005620 


1616 


1617 


104420 
000562’ 
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000322’ 


000440' 


000436 ' 


000424 ' 


| RARSREREAERESERESSESEESEEEEEESEEEESESSSSSESESESESESESEOESOSOSS 
| RARSEAEOEEAEEESEEESESESSESESSSEEERDESES ESS SEDESEESESESOSONSL SSS 
1 CONNER P SEAT oREPREK TO ASCII ANO 


OTOAS BEGIN. P.BCNT+RSPACK, ADR4 


| RARRAAEEEEEEEEESEESESEEEEEEESSOSEEEESSSSSESSSEESSSESSSESOSSOSS 
| RARERSERSEEEEEEEEEELESEEEERESESSSSSEEEESSSESSESEEESESSSOSONSE SSS 
1CONVERT PL BteaoCPACK TO ASCII AND 


ST 
OTOA$ BEGIN. P.LBN+2+CMPACK , ADRS 


| RARAAAEEEAESESEEEESEEEESSESSEESESEEESSESSSEESESSESSESSSSOSSOSSSS 
| RAAAORAAESEEEEEESESEEEEESEERESESEEEEESSSSES4OES6480004 009880889 
;CONVERT P.LBN+CMPACK TO ASCII AND 
STORE AT ADR6 


; 
OTOAS ,BEGIN, P.LBN+CMPACK , ADR6 


| RARREAASREEASESEEDESEEEESESSSEEEESS EESSSFESEESESESSSSESSSOSSSS 
 RRARRAREEAAEEEDSEESEEEEEESSSSEEEESESESSSSSEEESSSESESSSESOSS SESS 
aa TO ASCII 


ST 
OTOAS .BEGIN.P. ADEA+CMPACK, ADR7 


| RARPRAERAESERESEEAEESESESESESESESEESESSSSSESSSSESSSSSSSSOSOSSS 
| RERRAESEEREEESSEEEESEEEESSESSSEEEESSSSESSESSSESESSSESESSSEOSSSSS 
sCONVERT P.ADPA+CMPACK TO ASCII 
sSTORE AT ADRS 
OTOA$ ,BEGIN,P . ADPA+CMPACK , ADRS 
| RAAEEEESEEEEREEESSEEESERESSSSESESESESSS «> LESSEE TEESSSESSSOSDSS 
ape Sees. Saeen ;ASCII MESSAGE CALL WITH COMMON 


SEQ 0056 


————See 





SEQ 0059 
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.SBTTL MODULE MESSAGES 
INITE1: “SG2 


MSG4 
177777 
INITER: MSGS 
ADR1 
MSG10 
ADR2 
mSG14 
ADRS 
177777 
INITE2: MSG2 
MSGS 
177777 
INITE3: MSG2 
MSG6 
177777 
DRP1: MSG8 
ADR2 
MSG9 
MSG20 
ADR1i 
MSGD1 
177777 


5 
g 
x 
5 
2 


& 
wx 


NwNANN 
oss 

~ 

oy 

~ 

a 

hand 

ae 


a3 
“33 
= ine 


: 
: 


be eed 
: 
3 
~ 

~ 
~o° 


Ertrtrsrs 
Begs 
2883 


a 
een 
i 
~~n 
me 
~N 


ADR1 
MSGD2 
177777 


MSG9 
MSG20 
ADR1 
mMSGO3 
177777 
ERRPAS: MSG1il1 





1 
177777 
SANOTO: MSG17 


oe oe he eo bb ee 
i~w~~ 
&2uinrd 


+ 2no 
é 
: 


ee — 





006652’ 
1 








UNIOFF : 


WARNI 
WARN2 
WARNS 
ABOR’ : 
ZERO: 
BANNER 
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RODULE FESSAGES 


199777 


SEQ 0060 


SEG 
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MORE MODULE MESSAGES 


.SBTTL MORE MODULE MESSAGES 








, NLIST 8EX 
| 045 000 MSGi:  .ASCIZ ‘s' 
| 045 103 117 MSG2:  ‘:ASCIZ ‘SCONTROLLER INIT ERROR, ' 
| 045 123 101 MSGS: :ASCIZ ‘SSA REGISTER » 
106 117 125 ASCIZ ‘FOUND BY Y DIAGNOSTIC ' 


MSG4: 

123 124 ieS fees, «ASCIZ ‘STEP NOT SET. 

105 130 120 MSGe: :ASCIZ ‘EXPECTED DATA WAS INCORRECT 
045 122 105 MSG7?:  ASCIZ ‘SRETRY COUNT EXCEEDED, ABORT’ 













045 1 i122 SG8: .ASCIZ ' 
104 122 MSG9: .ASCIZ ‘ DROPPED. ° 
111 116 MSG10: .ASCIZ ‘ IN STEP ' 
045 123 117 MSGi1: .ASCIZ ‘sSOFT ERROR COUNT @ 
040 MSGl2: .ASCIZ @ HARD E ERROR C COUNT @° 
045 103 110 MSG13: .ASCIZ  SCHECK DATA ERROR COUNT 6’ 
045 101 104 MSG14: -ASCIZ ‘ 
045 25 116 MSGi6: .ASCIZ ' T WAS FOUND OFFLINE. UNIT NUMBER = 
045 123 101 MSGi7: .ASCIZ ‘#SA REGISTER IS NOT ZERO 
045 103 1417 MSGi8: .ASCIZ ‘ LER IS GOING ONG THROUGH INITILIZATICN’ 
045 111 MSG19: . IZ ‘ T CLEAREDS* 
045 104 105 MSG20: . '@DEVICE ID BIT = ' 
045 123 124 msG2t  - ‘STATUS ENDCOD UNITNU BYTECO HI LEN LO LBN EXTADR PHYADRS’ 
040 000 mSG2 : a ’ ’ 
040 041 040 MSG36: . + * OPERATING WITH NO DISK ACCESSING !#° 
007 007 040 MSG37: . <o7><07>’ £ CUSTOMER DATA WILL BE OVERWRITTEN !s° 
040 055 055 rf 6 scocceeesececeseeseoeesessesoerscoocrco a <07><O7> 
040 Lil 106 MSG40: .ASCII ‘ IF Y¥ SH TO DESTROY CUSTOMER DATA. SET gITt (NOT BITO)s’ 
iil 116 ‘ SWITCH REGISTER 1(SRi) OF DUBE? EQUAL TO 1 
045 05 122 MSGD1 ‘ wERRORS CAUSED DRIVE TO BE DROPPED’ 





WAS NOT FOUND BY EXERCISERS’ 
T HIGHER THAN ACTUAL @ OF DRIVES FOUNDs’ 


; THE READ BUFFER 


wi 
55 
: 


175 
1734 007616 RBUF : 
1755 


i -—— 


‘ 
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EA 
EA22 
ECCMEM- 
.BBR= 
BBU- 


AVANT 


gar 
: 


= wae 
eeseeane 


a 





. UHVR= 
L.UNTI= 
vR 


cece 
é 


e 
MAITR 
MAITW 
MAP 22% 


eos 







3aasaaasaaas 
e385 


FF 


& 
< 


rw 


é i ag Ce aa PUNO eeu 


ae 





wo 


-USVR= 
L veers 000044 


nO Ce 040000 
.ERR= 





Hoes 


z 


rid bo 






SALAS ASAD 
é 


renseeeeeaee 


SVVVSVSVVSS 


vy 








SEQ 0062 
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SEQ 0065 
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a ct asf tteRe 
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hep ize of core pool: Ask LIM/PLUS unger GAX/VMS) 


csogeré Bist ET SORE 


SEQ 0004 


XOUBEO 





SYMBOL 
Syne VALUE 
_ ABOR 006056 


“AppR22 


900199 
001000 


000535 


su 


a 


DDDD DAD WDDD 


CREATED BY MACRO ON 27-SEP-85 AT 16:24 
S REFERENCE 
REFERENCES 
16-904 027-1696 
@3-3 #26-1602 
@3-3 13-530 15-644 
@3-3 15-711 15-734 
63-85 14-569 #14-570 
27-1657 27-1665 27-1674 
-87 14-565 #14-566 
27-1654 27-1662 27-1670 
@3-89 14-567 14-568 
03-91 26-1615 27-1709 
63-93 26-1616 27-1711 
3-95 26-1617 27-1713 
3-97 26-1618 27-1715 
03-99 26-1619 27-1717 
@3-3 
@3-3 
5-715 15-738 15-755 
2-3 *#26-1601 
18-1088 #23-1358 
63-3 
26-1620 #27-1702 
63-3 -512 13-515 
14-586 14-608 14-618 
15-746 15-758 15-763 
16-875 16-881 16-883 
6-904 16-905 18-1 
20-1237 20-1239 25-1439 
26-161 26-1614 26-1615 





J 
w 
‘os 
Ol 
a 
_ 


TR cad 
ates 


s 
vl 
' 

o 


SeoeooeeSoss & 

AA AAAI 

AWE IGG Gt GT 
Wut 


15-669 15-671 


@5-140 


PAGE 1 
CREF 


16-897 


15-772 


15-665 


04.00 


25-1437 
15- 


27-1684 
20-1227 


26-1614 


15-789 


15-668 


27-1703 
#20-1226 


27-1634 


615-611 


26-1612 
26-1613 
27-1672 


27-1630 
27-1632 
27-1707 


SEQ 0065 


27-1649 
27-1646 


SEQ 0066 













x 0 CREATED BY MACRO ON 27-SEP-85 AT 16:24 PAGE 2 
2 cagss REFERENCE CREF 04.00 
VALUE REFERENCES 
~=é6B = 900040 @3-3 
8 = 000100 @3-3 
8 = 000200 @3-3 
6 = 000400 @3-3 
'8 = 001000 @3-3 
| BRE = 104407 @3-3 15-649 15-649 
BR1 000012 R @3-3 15-831 
| BR2 000013 R 03-3 
| BTODS = 104421 63-3 14-565 14-567 14-569 20-1227 
| CAPRES = 000004 03-3 
CDATAS = 104412 @3-3 18-1084 18-1114 
COERCT 000144 R @3-3 #13-520 14-569 
COWDCT 000146 R @3-3 
CF = 000200 10-302 24-1393 
CF « 000100 10-303 
CF = 000040 10-304 
A = 900002 #10-306 
= 000020 10-305 
CF «= 000001 10-307 
000254 R @3-31 
» 000001 @3-3 
«= 900001 @3-3 
= 104422 3-3 
005344 R ont 153s 21-1277 22-1307 22-1325 23-1345 23-1358 23-1371 24-1389 24-1406 
000270 R 63-36 #13-526 15-686 #17-926 #25-1430 25-1432 
8 63-55 15-762 21-1258 21-1259 21-1260 *21-1276 #21-1279 21- #21-1287 
#21-1290 22-1308 22-1310 *22-13511 22-1326 22-1328 22-1329 22-1335 *22-1 
#22-1335 *23-1346 23-1359 *23-1572 623-1373 24-1392 24-1393 *24-1409 25-1432 
025-1435 25-1487 25-1495 25-1497 -1499 26-1616 26-1617 26-1618 26-1619 
& @3-53 #21-1289 #22-1331 23-1348 23-1375 #24-1390 #24-1408 
- 3-54 #21-1291 
R 03-34 #15-696 15-697 25-1434 +#25-1455 
R 3-3 15-7121 15-734 15-751 15-768 15-785 
9 3-57 215-764 
& @3-59 15-697 «15-773 015-777 
2 3-56 215-765 
o 3-58 15-696 #15-770 015-776 
ict @3-3 #26-1600 
be 14-550 15-728 
? 14-597 #18-1017 186-1047 
‘ 14-617 #18-1109 
R @23-1345 
@3-3 
@3-3 
R #18-1096 
a 14-599 20-1212 
R 17-941 @20-1215 
R 17-959 @20-1218 
2 20-1214 20-1217 20-1220 





—-— —e 


SEQ 0067 


— — 





CREATED BY MACRO ON 27-SEP-85 AT 16:24 PAGE 3 
CROSS REFE CREF 04.00 
VALUE FERENCES 
005732 R 20-1233 27-1645 
005750 R -1237 #27-1655 
005766 R 20-1239 27-166 
000630 R @4-113 13-5235 14-583 14-592 14-605 17-968 20-1220 #20-1226 
000014 R @3-3 13-5235 
000476 R at Pg «15-719 15-730 15-737 15-747 15-754 15-764 15-771 15-761 
! @ @3-65 15-722 15-743 15-760 15-777 15-794 
= 000100 @3-3 
EF. . @9-2861 
EF = 000100 09-282 
EF . 12-408 
EF. bd 9-283 
EF = 000100 #12-409 
| &F = 000001 #12-410 
er * 09-2 
ENOI = 104415 @3-3 14-608 14-618 
ENDS = 104410 @3-3 14-S6e 16-875 16-905 
ERRORH 005436 R 17-997 18-1076 25-1470 25-1475 25-1506 26-1563 
ERRORS 005476 R 25-1480 -1 #26 -1580 
ERROR1 002640 R 15-654 5-841 #16-879 
ERROR? 002636 R 15-846 #16-878 
ERRORS 002634 R 15-658 -672 15-678 016-677 
ERRORS 002622 R 15-687 016-874 
ERRPAS 006004 R 14-571 @27-1669 
ERRTYP 000106 R @3-3 #25-14 25-1469 25-1474 25-1479 425-1505 
ERR.O = 000000 #5-151 
ERR.1 = 000001 #5-152 25-1479 
ERR.3 = 000005 #5-153 25-1 
ERR.32 = 000052 #5-155 25-1474 
ERR.6 = 000006 @5-1 25-1 
EXIT$ = 104400 @3-3 15-834 25-1439 
000524 R @3-82 #13-521 218-1034 +%16-1097 25-1518 «25-1520 
000150 R @3-3 
= 104415 @3-3 15-729 15-746 15-763 15-780 
001722 R 14- 14-616 #15-708 
004654 R 23-1 @23-1375 
004626 R 17-937 18-1029 16-1067 23-1571 
= 104414 #3-3 15-708 
= 000006 @7-226 
= 000004 @7-227 
= 000366 R 87-230 
= 000002 @7-226 
= 000000 @7-225 
= 0003506 R @7-229 7-230 
= 000010 @7-222 
000044 R @3-3 14-567 #26-1549 *26-1566 
= 104405 #35-3 16-896 26-1570 
000050 R @3-3 
000036 R @3-3 


SEQ 0068 


















xDUBEO CREATED BY MACRO ON 27-SEP-85 AT 16:24 PAGE 4 
SYMBOL CROSS REFERENCE CREF 04.00 
SYMBOL VALUE REFERENCES 
ICOUNT 000040 R @3-3 
IONUM 000122 R @3-3 
IMOOX. = 000000 @3-3 15-706 
INDPAR = @3- 
INIT 000030 R 63-3 
INITER 005700 R 16-899 @27-1629 
INITE1 005672 R 16-887 @27-1625 
INITE2 005716 R 16-891 @27-1637 
INITES 005724 R 16-8 @27-1641 
INITUO 001412 R 14-557 #15-642 26-1545 
INTA 002562 R 15-830 @15-836 
INTERP 005020 R 18-1036 18-1099 25-1456 25-1524 
INTR 000120 R @3-3 
KTPRES = 000400 @3-3 
KTXTND = 040000 @3-3 
000626 R @4-111 21-1261 21-1285 
001276 R 14-584 #14-588 14- 
0613512 R 14-591 14-606 
= 000015 #12-418 
= 000014 #12-416 #12-417 
L.cYL = 000034 #12-425 
L.DATA = 000050 #12- 
L.ERLC = 0000350 #12- 
L.EVNT = 000000 #12-414 
i..GRP = 000040 #12-424 
L.SCTR * 000042 #12-426 
L.SLOT = 000002 #12-415 
L.TRCK = 000041 #12-425 
L.UMVR = 000027 #12-421 
L.UNTI = 000016 @12-419 
L.USVR = 000026 #12 
L.VSER = 0000464 #12-427 
MAITP 004356 R 2i- 21-1284 21-1266 
MAITR R 18-1111 21-1257 
MAITW 306 R "ae a i 77 
MAP22% = 104416 @3-3 - 15-741 15-758 15-775 15-792 
MA 1LONC 001774 R 14-576 #14-616 14-619 
>. CHP s 9-264 
MD.ERR = 010000 09-266 
MD.EXP = 100000 #9-265 
mD.FEU = 000001 09-275 
MD.NXU = 000001 #9-277 23-1375 
MD.SCH = 004000 #9-267 
m.ScL = 09-266 
MD>.SEC = 001000 @9-269 
MD.SER = #9-270 
MD.SPD = 000001 @9-274 
MD.SSH = 9-271 . 
“D.vOL - #9-276 
MD.WBN = 000100 #9-272 


el LL 
rr 


annie ES SS TE 


———— = 


see SE RRTTIRULL 


RAs 


go BY MACRO ON 27-SEP-85 AT 16:24 


ee 


¢ 


Hienonte 


H i 
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3571333 


026-1724 





27-1712 27-1714 


SEQ 0069 


it -691 16-895 


026-1744 


3-3 3-3 
3-3 3-3 
3-3 3-3 


—_— — eee ees ee - 


—— -— a a 


SEQ 9070 


04.00 


PAGE 6 
CREF 


ATED BY MACRO ON 27-SEP-65 AT 16:24 


“Os 
5° 





ates. 


1446 
1359 
23-1546 


carats BEE 


26-1612 26-1615 26-1614 


s 





CBRE RAG 


32 wtotot 3 : 
silica ailltvaald 


Oates uaeseekuaaSs 
SSSSSEESBBSASSSSSBSS 





15-755 15-756 


15-748 





15-776 15-795 


15-759 
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SEQ 0071 



















xDUBEO CREATED BY MACRO ON 27-SEP-65 AT 16:24 PAGE 7 — 
§ CROSS REFERENCE 

SYMBOL VALUE 

PRTY? = 000340 

peut «Ive 

PUS = 005746 

= 000002 a ont. : 

pat : See eet et aa 
.- . e2i- e22- 

> BUFF . 

. . 

a 024-1393 

P.CNTI = vo 

ca : @11-398 © 025- 

pene 

p -ELGF “ 

Siar: 

P.MSTI = 

P.MTMO = 

P.LEN = 

p-LGDT = 

.MEDI = La 
P:OD “23-1278 “Steet | “55-1499 
P.OPCD = 

oTRF = 000014 

> RON = 000014 

P _ RBNS oa 

P.RCTC = 

BcRETS = 900056 

P_RGID = 000034 

bem > Sosees 

> am = 000040 25-1452 25-1461 25-1463 26-1601 26-1612 
P.STS = 000012 

P.SZ0F = 000012 

P_.TIME = 000024 

P{UMEL = 000016 17-945 025-1435 26-1614 
P_UNIT = 000004 

P.UNSZ = 000044 





— 
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oe 


Se ee 
i Sana! HER 





SEQ 007e 
ATED BY MACRO ON 27-SEP-85 AT 16:24 P 8 
cross REFERENCE CREF 04.00 
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18-732 15-749 15-766 15-765 
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HER HEHE ta-aas 
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1 ’ steeenees ‘ ewe 
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3 - 615-790 015-794 

ie 

R 3-42 t- 16-555 15-673 

R 33 

: ees} oer ee” «o13-551 «15-646 «= «25-695 = 25-8320 «25-859 «16-882 26-1559 
ott | 
e8-176 15-655 15-656 


SEQ 0075 











mnie 
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: cprecereeeneneriweedte rete rt os 2 
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menenen enn 
mane 


CREF M44 .00 


cana ca 
— = C23 4p 4 o 
ee aa aS 


g {I cEBAEESGEEKS 


e+ 
BO a si i ss 5s 
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- ee 
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—— eee ee eee 


age 





REFE 
@27 -16835 
@4-117 
000632 R #4-114 
17-965 
He @4-109 
g - 
000001 @3- 
000472 R @3-61 
000010 R @3-3 
R 13-512 
006046 R 13-515 
006052 R — 
900186 R $3.3 
oo 
gooste R ot 
OOOiew R @3- 
000142 R @3-3 
000116 R @3-3 
000114 R @3-3 
000642 R 04-116 
004426 R 18-1072 
004440 R -1 
000005 R 
006062 R 16-874 


@27-1690 
27-1695 


15-714 
15-716 

15-713 
#15-713 

18-1059 


932-1307 


@27 -1699 


gol BY MACRO ON 27-SEP-85 AT 16:24 


14-595 
20-1227 


15-719 
615-722 

15-718 
#15-721 

21-1281 


017-939 


PAGE 11 
CREF 


17-930 
25-1435 
19-114 
19-116 


615-745 
15-701 


21-1279 
21-1260 
21-1285 


04.00 


17-931 


19-1145 
19-1169 


15-746 
15-829 


22-1311 
22-1310 
22-1309 


617-943 


19-1156 
19-1171 


#15-762 


17-952 17-957 
19-1189 
19-1165 
15-765 615-779 


SEQ 0075 


17-965 


15-760 


— - 


SEQ 0076 
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CREF 04.00 


cneaTeD BY MACRO ON 27-SEP-85 AT 16:24 PAGE i2 
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SBESS 



















HE 







14-565 14-567 14-569 20-1227 
16-1084 18-1114 
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———— eee eee 
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i bine 


RRNA VOBVOBUBVONAAK 


Bt 


15-729 15-746 15-763 15-760 


-314 3-3 3-3 3-5 3-3 «3-5 3-3 3-3 3-3 3-3 
-3 3-3 3-3 
-324 3-3 3-3 3-3 3-3 3-3 3-3 3-3 
° Ag 16-675 

IT - 14- 14-618 
- 4*; i6- 

Ss -3 -3 

~437 
“$61 
27 


: a 
#2-165 16-898 26-1570 
¥ #@2-120 
@2-144 
@2-140 
2-136 3-3 
MAP 22 @2-277 ee 15-741 15-7568 15-775 15-792 
sc 2-19 ty 
MSGN #2 195 13-5 13-515 13-516 14-571 16-674 16-687 16-6891 16-695 16-899 
1 20- -1237 20-1239 26-1542 26-1620 
MSGS 4 
NBKMOO #2 
OTOA #2- 16-861 16-885 16-897 20-1229 26-1541 26-1612 26-1615 26-1614 26-1615 
26-1617 26-1618 26-1619 
| PIRG #2- 15-837 25-1442 
RAND 2 13-S27 19-1132 19-1154 


5 LL LLL ——————— 


